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Season's  Greetings 


new  year  to  Uf>°n  US  agaln*  Soon  we  wil1  be  “*0  a 

wishes  for  tZ  h!hh  ’ ? Nachbaur,  Tom  Bent,  and  myself  would  like  to  offer  you  our  best 

wishes  for  the  Holidays  and  the  coming  New  Year.  - Jeff  Moore 


Attention  Programmers!! 


The  Second l Sort- of- Annual  Programmers  Competition  is  offically  underway!  The  topic  this 
time  around  is  interactive  educational  software  for  children.  Complete  competition  rules 
and  entry  information  are  given  in  this  issue.  Get  those  computers  fired  up  *and  ready  to 
mh  fir.,?  fabulous!  TS1000/TS1500  division  1st  Runner  Up  - a Byte  Back  MD-2B 

Pri2m*npT,t2^8/SPeCoUm  <?!Vi3i°n  l3t  Runner  UP  - « 32 K Non-Volatile  Memory  Board.  Grand 
notalU°n3t  Overall  - a Write  man  NLQ  Dot  Matrix  Epson  Compatible  Printer!  And 
t forget  the  Fame  and  the  Glory.  All  the  winners  will  have  their 
programs  published  in  SYNCWARE  NEWS.  The  best  of  the  rest  could  very  well  find  their  way 
into  one  of  our  journals  published  for  the  TS1000  and  TS2068.  Get  with  it  guys  and  gals. 

Let  s hear  from  you  soon.  * • 


New  Improved 


claim  that  tacking  the  words  'new  and  improved'  onto  your  product  is  good  for 
at  least  a moderate  sales  increase.  Whether  this  is  just  Madison  Ave.  hype  or  not  I'm  not 
sure.  I am  sure  that  those  words,  new  and  improved,  could  honestly  be  applied  to’  our 
computers  on  an  almost  monthly  bases.  Even  before  I became  Editor  of  SYNCWARE  NEWS  I was 

coSueTr"  ^ h°W,  many  id6aS  fOF  impr°Ving  SOftware  a"d  technical  Applications^* 
tZ  ZZL  t?  P UP  OUr  comPuters*  As  o f this  publication,  I see  something  new 

ach  Timex  computer  on  an  almost  weekly  basis.  Even  though  the  corporate  moeols  of 
computerdom  have  turned  their  backs  on  the  Timex  Computer  line  in  the  US  the  "eornmnnor," 

JE'Evr  rd  ovep  that  we  °wn  "«  *h“  *-»  ^-«eT^or  .4s: 

point,  I d like  to  turn  your  attention  to  two  articles  appearing  in  this  issue.  ? Y 
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FOR  YOUR  SUPPORT 


Chia-Chi  Chao,  73  Sullivan  Drive,  Moraga,  CA  94556, 
announces  that  he  is  now  selling  three  programs  from 
JRC  Sotware.  Diamond  Mike  II,  $17.00;  Great  Game  & 
Graphics  Show,  $17.00;  Compass,  $19.00.  All  prices 
include  shipping.  The  games  are  available  on  tape  or 
5.25"  Aerco  disk.  A complete  catalog  is  available 
with  SASE. 

Novel  Soft,  106  Seventh  Street,  Toronto,  Ontario, 
Canada  M8V  3B4,  (416)  259-8682,  announces  two  new 
pieces  of  software  for  either  the  TS2068  or 
Spectrum.  ARTW0RX  allows  you  to  not  only  draw,  but 
paint  and  do  graphic  design  on  your  computer. 

Features  include  pull-down  menus,  multiple  brushes 
and  text  fonts,  cut  and  paste,  and  much  more. 

Includes  sample  artwork  and  manual.  TIMACHINE  is  a 
BASIC  complier  that  will  convert  your  programs  into 
machine  code  to  increase  running  speed  to  200  times 
normal.  The  program  will  handle  all  BASIC  and 
floating  point  except  1/0.  Includes  demo  programs 
and  manual.  Both  programs  include  Spectrum  and  2068 
versions.  The  cost  is  $19.95  each  U.S.  plus  $3  S&H. 

Willcocks  Research  Consultants,  6321  W.  78th  Place, 
Los  Angeles,  CA  90045,  (213)  215-0780,  announces  the 
QL  version  of  KARTIK,  a family  crossword  game,  which 
includes  an  electronic  dictionary.  KARTIK  and 
TANGLE-4  are  also  available  for  TS1000/1500  com- 
puters. Write  for  details  and  prices. 

Grey  & Clifford  Computer  Products,  P.  0.  Box  2186, 
Inglewood,  CA  90305,  (213)  759-7406,  is  offering 
software  and  hardware  for  communications  on  the 
Spectrum  emulated  TS2068.  SPECTERM-64  is  terminal 
emulation  software  which  allows  64  column  display 
without  additional  hardware.  Price  for  SPECTERM-64 
is  $30.  When  used  with  the  new  Z— SI /0  hardware  card, 
it  allows  use  with  any  RS-232C  modem  or  peri phial 
including  Hayes  compatibles.  Price  for  the  Z-SI/0  is 
$79.95.  Write  for  more  details. 

Knighted  Computers,  707  Highland  Street,  Fulton,  New 
York  13069,  is  selling  QL  computers,  software,  and 
related  products.  Their  current  flyer  lists  the  book 
"T/S2068  Basics  and  Beyond"  by  Sharon  Z.  Aker. 

Fred  Nachbaur,Sil icon  Mountain  Computers,  C-12,  Mtn. 
Stn.  Group  Box,  Nelson,  BC  Y1L  5P1,  Canada,  has  been 
hard  at  work  under  the  mountain  and  has  finally 
completed  DUNGEON  OF  YMIR  for  the  TS1500.  This  full 
featured  HI-RES  adventure  game  competes  favorably 
with  similar  games  for  much  larger  machines. 
Presently  available  are  VI  (requires  Hunter  board, 
other  8-16K  NVM  or  64K)  and  V2  (requires  16K  RAM 
pack;  may  require  slight  hardware  mod,  supplied).  V3 
(for  ZX81/TS1000  with  CMOS  8-16K  RAM)  to  follow 
soon;  stay  tuned.  Price  $24.95  U.S. 

Robert  C.  Fischer,  producer  of  PRO/FILE  EXTENSIONS, 
T/S  GRADER,  WORD  PUZZLER,  and  WORD  GAMES,  has 
changed  his  address  and  can  now  be  found  at  Rt.  2 
Arizona  St.,  Emerson,  GA  30137 

Larry  Kenny,  Larken  Electronics,  has  announced  that 
he  is  working  on  a cart-bases  DOS  for  the  Larken 
2068  disk  drive.  Features  include  Spectrum 
compatibility,  built-in  WI  "snapshot"  save,  usage 
of  standard  tokens,  and  disk  compatibility  with 
other  systems.  Also  in  the  works  are  EPROMs  for  use 
with  other  popular  disk  systems.  Contact  LARKEN 
ELECTRONICS,  RR#2,  Navan,  Ontario  K4B  1H9,  Canada, 
to  be  placed  on  the  "Inform-when- ready"  list,  or  to 
suggest  features  that  YOU  would  like  to  see. 


Bill  Bell,  596  Cherrington  Road,  Westerville,  OH 
43081,  (614)  882-3883,  is  offering  BBD0S  for  the 
TS1000  equipted  with  the  Aerco  FD-ZX  Disk  Interface. 
BBD0S  is  a fully  automatic,  BASIC  transparent,  disk 
operating  system  that  locates  itself  in  the  8-16K 
region  of  RAM.  It  is  advertised  as  being  fully 
compatible  with  all  printer  interfaces.  $29.95. 

Thomas  B.  Woods,  P0  Box  64,  Jefferson,  NH  03583, 
annouces  the  availability  of  PRO/FILE  AR0S  for  the 
TS2068.  The  price  is  $59.95.  Included  is  the  AR0S 
cartridge,  PRO/FILE  instruction  manual,  and  a 
special  supplementary  book.  This  updated  and 
improved  version  of  PRO/FILE  has  built-in  software 
for  any  of  seven  different  printer  I/Fs.  Software  to 
allow  the  use  of  an  IBM  compatible  keyboard  via  a 
Experimenter's  Universal  1/0  Port  (also  available 
from  Woods.  Reg.  $69.95,  now  on  sale  for  $39.95)  is 
also  included.  SASE  for  more  info. 

Jim  Houston  Interpises,  414  West  Elsmere  PI.,  San 
Antonio,  TX  78212,  offers  a shifter  board  for  Timex 
computers.  This  allows  you  to  use  a full  size 
keyboard  and  assign  the  extra  keys  with  functions 
that  normally  require  multiple  key  presses.  The 
Shifter  Board  is  sold  bare  for  $17.50  or  fully 
assembled  and  tested  for  $45.00.  Also  available  are 
an  Edge  Connector  board,  $55.00;  a Direct  Video  with 
Inverter  board,  $15.00;  and  a line  of  programs  on 
AERCO  disk,  for  $29.95  each.  For  more  information, 
please  send  a SASE  to  the  above  address. 

WIDJUP  Co.,  1120  Merrif ield  S.E.,  Grand  Rapids,  MI 
49507,  has  introduced  TOURIST  C for  the  TS2068.  The 
program  is  di scribed  as  an  extended  bank  switching 
disassembler  and  SPY  program  which  resides  in  BASIC. 
Also  included  is  an  universal  printer  interface 
driver.  This  program  is  to  help  in  the  disassembly 
of  code  irregardless  of  which  bank  the  code  may 
reside.  SASE  for  more  info. 

David  A.  Hill,  1159  South  Shore  Drive  #12,  Holland, 
MI  49423,  is  currently  publishing  a newsletter 
dedicated  to  the  users  of  the  AERCO  FD-68.  The 
publication,  appropriately  titled  "FD-68  USER", 
contains  information  on  getting  the  most  from  your 
disk  system.  Topics  include  program  conversions  and 
modifications  for  disk  use.  Send  a SASE  for  info. 


* SMAJRTT  TEXT  TS—20&&  * 

-gives  you  the  prettiest  letters  that 
you* 11  ever  see  from  a computer . It*s  DATA 
BASE  lets  you  edit  and  move  data  at  will, 
lt*s  KAIL  MERGE  lets  you  create  or  LOAD  mail 
list  files  for  PERSONAL  FORM  LETTERS. 
HEADERS,  FOOTERS,  BLOCK  INDENT,  Repeat  Print 
reports,  do  invoices,  outlines,  AUTO 
LETTERHEADS,  AUTO  SIGN  OFF!  A complete 
ADMINISTRATIVE  PACKAGE  for  home  or  office. 

$39.95  Check  or  M/O.  Post  Paid. 

Specify  type  of  Interface,  and  for 
Cassette,  Micro  Dr,  or  AERCO  FD  Disk. 
Supports  all  printers.  70  page  illustrated 
manual,  plus  phone  info  service . 

Guaranteed. 

Bill  Jones,  Gulf  Micro  Electronics, 
1317  Stratford  Ave,  Panama  City,  FL  32404. 
904-871-4513  Inquiries  welcome. 
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FORUM 

SYNCWARE  NEWS  welcomes  correspondence  from  its 
readers.  Some  editing  of  letters  may  be  necessary 
for  brevity  or  to  enhance  clarity. 

Monitor  Compatibility 

Dear  Editor, 

There  are  now  a great  many  excellent  buys  available 
on  monochrome  monitors.  I recently  purchased  one 
from  Jameco  Electronics  for  $38.00  including  case, 
power  supply,  and  keyboard.  Unfortunately,  I find 
that  many  of  these,  including  mine,  require  that  the 
sync  signals  be  seperated  from  the  video  signals 
rather  than  the  composite  video  signal  as  available 
from  the  Timex. 

A circuit  was  shown  in  Volume  #1  of  Sync  Ware  News 
that  would  seperate  the  sync  pulses  from  the  video, 
but  I*m  sure  many  of  your  readers  no  longer  have 
that  issue  available.  Also,  as  in  my  own  case,  many 
of  these  monitors  require  that  the  horizontal  sync 
pulses  be  seperates  from  the  vertical  sync  pulses. 

I'm  sure  many  readers  would  appreciate  instructions 
on  how  to  wire  such  a set-up. 

David  Thomas 
Millbrook,  AL 

Vou  are  correct  in  your  obiervation  that  there  a/re 
many  good  ’bar.gim’  on  monitor  at  the  moment.  Hotv - 
ever,  a.6  you  have  diicover.ed,  molt  oi  theie  will  not 
work  with  a itandar.d  Timex  compute r.  Theie  lur.plui 
monitor  uiually  require  TTL  video  and  lync  lignah. 
Unleii  the  compute r hoi  been  designed  to  provide 
theie  lignah,  they  one  almost  imponible  to  derive 
otherwise.  The  Timex  compute *6  have  been  designed  to 
provide  the  uier  with  composite  lignah  only.  Ii  you 
own  a TS2068  (you*,  letter  neve r stated  which 
compute r you  had),  companies  luch  06  A ERCO  have 
boar.di  which  produce  TTL  level  lignah  which  a/re 


☆ SCLD-fr 

Revive  Your  DEAD  TS2068 
OR 

Make  Your  TS2068 

INDESTRUCTIBLE!! 

100  Chips-  First  come  basis 

$20  ea.  $18  aa.  for  2 or  mora 

W/lnstructlona 

optional  68PCC  socket  available 

oka  to:  CAT8  USER  GROUP 

Ruth  Faglay 

6736  Ridgadala  Rd./sida 
Baltimore,  MD  21208 
(301)  542-2648 

Chips  Are  HEREII 


compatible  with  lome  oi  theie  lurplui  monitor.  Thh 
h ponible  became  the  compute /r  already  supplied 
moit  oi  what  it  needed  at  the  rear  expansion  butt . 

The  circuit  you  reier  to  in  Volume  oi  SyncWare 
Newt  Ipg.  62  in  the  reprinted  veriion)  on  caiual 
examination  doei  appear  to  provide  leperate  tync 
lignah.  In  reality,  all  it  doei  it  to  prevent  tync 
tignal  inveriion  when  the  video  it  r everied.  A 
circuit  to  actually  leperate  the  tync  puliet  would 
be  much  more  involved.  Timing  circuiti , and  the 
like,  would  be  neceiiary  to  do  the  job  properly.  In 
talking  to  our  resident  technical  gu ru,  Pr ed 
Nachbaur,  it  wot  decided  that  a properly  designed 
and  iunctional  dreuit  to  leperate  video,  horizontal 
tync,  and  vertical  tync  puhei  would  be  no  tmall 
tatk.  Ii  anyone  out  there  knowi  oi  luch  a circuit  we 
would  be  more  than  happy  to  pail  the  word  along  to 
the  reit  oi  our  readeri. 

In  the  meantime,  I can  only  luggeit  to  our  readeri 
to  read  ALL  the  imall  print  before  laying  down  your 
hard  earned  caih  ion  a monitor  ’bar gin1 . Be  certain 
it  it  a compoiite  type  unleii  you  KNOW  you  can  uie 
other  ityle  monitor i .-jm 

Pascal  Help  Wanted 

Dear  Editor, 

I am  a fairly  recent  member  of  the  "SyncWare  News” 
family  of  readers,  and  I turn  to  our  group  of 
readers  out  there  for  help  in  solving  my  current 
problem. 

I have  recently  become  interested  in  running 
"PASCAL"  programs  on  my  TS2968,  I would  appreciate 
any  information  on  a PASCAL  Compiler  for  use  with 
the  TS2068  that  any  of  our  advertisers  or  readers 
might  have  to  offer. 

I also  have  a Zebra  Systems  Delux  Spectrum  Emulator, 
so  any  thing  that  will  work  with  that  would  be  of 
interest  to  me  also. 

Can  anybody  out  there  help  me? 

Melvin  B.  Hoyt 

4409-49th  St.  Moline,  IL  61265 


The  iniormation  I can  locate  in  regard  to  PASCAL 
loitware  ii  very  minimal.  Two  companies,  Hawg  Wild 
Software  and  Engliih  Micro  Connection,  at  one  time 
lilted  PASCAL  programi  in  their  lalei  catalogi . 
However,  neither,  oi  theie  companies  ii  preiently  in 
buiineii.  Knighted  Computeri , (375)  59 3-8219,  did 
buy  out  the  remaining  itock  oi  EnglUh  Micro 
Connection  when  they  doled  their  doom  due  to 
health  reaiom.  Uniontunately,  the  itock  that 
remained  contained  no  PASCAL  loitware . I can  only 
luggeit  that  you  pick  up  one  oi  the  Engliih  computer 
magazinei  luck  ai  ZX  Computing  Monthly . Contact  a 
iew  oi  the  dii tribuion  lilted  and  lee  what  they 
have  to  oiier.  Ai  ior  the  Spectrum  loitware,  I’d 
luggeit  that  you  take  a iew  momenti  ojj  your  time  and 
write  to  a iew  oi  our  many  advertUeri  or  iolki  that 
appear  in  the  ’Por  Vour  Support’  column • What  they 
have  to  oiier  juit  might  lurpriie  you . Pleaie 
indude  a SASE  ai  a courteiy  ai  many  oi  theie 
lupplien  operate  on  a limited  budget • 

I i any  oi  our  readeri  know  oi  or  are  idling 
programi  that  might  be  oi  intereit  to  Mr.  Hoyt, 
pleaie  ied  iree  to  drop  him  a line • We  have 
induded  hii  addreii  ior  your  convenience.-jm 
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2068  Art  Revisited 

Dear  Editor, 

On  page  17  of  the  Mar/ Apr  1985  issue  of  SYNCW ARE 
NEWS  you  published  a program  by  David  Kulp  entitled 
2068  ART. 

I found  that  if  you  adds 

65  INK  RND  * 6 

And  change  line  200  so  that  it  reads: 

200  BORDER  0:  PAPER  0 

you  get  quite  a different  display. 

Charles  Fursdon,  Florida 


Wanted:  2068  Graphics 

Dear  Editor, 

We  would  like  to  request  that  your  magazine  feature 
more  2068  Business  Graphics,  Logo,  and  Letterhead 
Design  software.  Also  of  interest  to  us  would  be 
programs  related  to  X,Y,Z  Axis  data  base  plots,  Ham 
Radio,  and  SWL. 

We  look  forward  to  your  publication  continuing  to 
support  2068  applications. 

Paul  Dolengewicz 

EDP  Research  <&  Development  Co. 

Westbrook,  CT 

Thank  you.  i on  youn.  lellen.  This  monlh's  issue  oi 
SVbICWARE  NEWS  has  a niily  label  making  pnognam  £ha£ 
you  migh£  iind  some  use  ion , eilhen  as  Lb  on 
modiiied.  We  have  eveny  inlenlion  £o  conlinue 
supponling  ALL  Ihe  Timex  compulens  unlil  Ihene  one 
no  mone  anlicles  £o  pninl  on  me  no  longen  have,  any 
subscnibens.  Resl  as tuned,  ii  we  gel  any  anlicles  on 
Ihe  above  lopics , cue'll  pnin£  Ihem.-jm 

Keyboard  Troubles 

Dear  Editor, 

Yesterday  my  Spectrum  Plus  dropped  dead.  That  is, 
all  input  from  the  keyboard  was  lost.  Surgery  to  the 
computer  seemed  to  be  the  only  recourse.  I took 
apart  the  computer  and  cleaned  the  keyboard  ’tails' 
with  a gold  cleaner  and  preservative.  Please  warn 
all  your  readers  to  NEVER  do  this.  The  cleaner 
removed  not  only  the  dirt  but  the  copper  traces  on 
the  keyboard  as  well! 

I have  since  gotten  the  computer  to  work  again  by 
shortening  the  tail  and  re-connecting  the  keyboard 
to  the  main  chassis.  The  'modified'  tail  is  so  short 
though,  I'm  still  having  problems.  Can  anyone  out 
there  help  me  by  coming  up  with  a new  interconnect 
between  the  keyboard  and  the  computer? 

Stan  Nagrod 

Albertson  Communications  Mamaroneck,  NY 

Thai  lL££le  nibbon  cable  belmeen  £he  compulen  and 
£he  keyboand  ha&  hislonically  been  a neal  pain. 
Because  £he  In  aces  on  i£  one  s o in  agile,  any  ilexing 
oi  £he  cable  can  easily  bneak  £hem . This  is 
especially  Inue  ii  you  inequenlly  dis- assemble  youn 
compulen . I have  neven  monked  milh  a Speclnum  Plus 
so  can  only  make  genenal  sugges£ions . 

Finsl,  you  migh£  Iny  physically  nemoving  £he 


connection  on  £he  compulen  bound.  Cu£  back  £he 
keyboand  £all  un£il  you  iind  an  anea  £ha£  is  solid 
bo£h  eleclnically  and  mechanically . I nsen£  £he  cable 
in£o  £he  connection,  you  pneviously  nemoved  inom  £he 
compulen  bound.  Lining  slandand  nibbon  cable 
available  in.om  Radio  Shack,  e£c.,  nun  mines  inom  £he 
connection.  £o  £he  holes  mhene  il  mas  nemoved.  Walch 
ion.  s olden  bnidges , and  lape  all  exposed  s olden 
joinls  al  £he  connection  beione  pulling  Ihe  compulen 
back  logelhen . 

Second,  seven  al  supplien s oiien  impnoved  add-on 
keyboands  ion.  ihe  TS2068.  Penhaps  one  oi  Ihese  could 
neplace  youn  old  keyboand  allogelhen . Along  Ihose 
same  lines,  Tom  Woods  sells  an  IN/OUT  Ponl  ion  ihe 
2068  lhal  I've  seen  hooked  up  and  nunning  milh  an 
IBM  slyle  keyboand.  These  sun  plus  keyboands  one 
cunnenlly  available  ion  IBM  clones  on  as 
neplacemenls . Penhaps  somelhing  in  Ihis  vain  mould 
solve  youn  pnoblem  and  impnove  youn  compulen  lo 
bool.-jm 

Ink  Jet  Woes 

Dear  Editor, 

I have  mated  an  Olivetti  PR2300  Ink  Jet  Printer  to 
my  TS1000  via  a Memotech  Centronics  I/F.  The  printer 
will  LLIST  and  LPRINT  fine.  It  will  also  COPY  okay 
as  long  as  there  are  no  graphic  symbols  on  the 
screen.  However,  in  spite  of  everything  I've  tried, 

I can  not  get  the  printer  to  function  in  the  Plotter 
Mode. 

Have  you  any  ideas  that  might  get  the  Plotter  Mode 
to  work? 

Robert  Haley 
Wooster,  Ohio 

F*om  Ihe  nesl  oi  youn  lellen , il  mould  in  iacl  seem 
lhal  you  have  Inied  evenylhing  lo  gel  Ihe  Plollen 
Mode  lo  monk . Being  uniamilan  milh  Ihe  Olivelli 
pninlen  I can  oUen  no  ideas  as  ion  as  pninlen  codes 
go.  We  mill  pnlnl  youn  lellen  in  hope  lhal  anolhen 
neaden  mighl  have  some  ideas  lo  oiien. 

The  WIVJUP  Co.,  1120  Menniiield  S.E.,  Gnand  Rapids, 
MI  49507,  is  cunnenlly  oiiening  a pninlen  ulilily 
ion  Ihe  TS2068  and  Ihe  Olivelli^  PR230 0 . We  have  nol 
had  an  opponlunily  lo  neview  Ihein  soilmane.  I I's 
possible  lhal  by  conlacling  Ihem  Ihey  mighl  shed 
some  lighl  on  youn  pnoblem.  Allhough  Ihey  haven' l 
advenlised  il,  Ihey  may  have  a TS1000  vension  oi  Ihe 
pnognam.  Wnile  and  see,  Ihen  lei  us  knom.-jm 

t 

More  on  Mandelplot 

Dear  Editor, 

I really  enjoyed  the  Mandelplot  article  by  Fred 
Nachbaur.  I have  a 2068  with  a Spectrum  switch  and  I 
found  that  the  program  would  run  as  is  in  the 
Spectrum  mode. 

I have  been  interested  in  fractals  for  about  two 
years.  I don't  fully  understand  them,  but  they  are 
fascinating.  I printed  the  enclosed  mandel  plots 
using  the  preview  mode  of  the  program,  saving  the 
screen$  and  transfering  it  to  Pix  Fix.  (I  have 
trouble  dumping  screens  to  my  Olivetti  printer.) 

After  spending  2.5  days  developing  the  Gemini-10 
picture,  I saved  the  data  array  and  started  trying  a 
few  modifications.  Below  is  the  listng  for  the  first 
picture  (fig.  F-l).  I then  used  the  data  from  the 
Gemini-10  character  array  to  feed  another  fractal. 
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Produced  using  the  original  lint  numbtr  4090, 

A picture  previewed  using  these  changes  will  take  a 
couple  of  hours  to  develop*. 

George  Lipscomb 
TSGT,  USAF 

SWN  Wants  ART 

Periodically  as  we  paste  up  SYNCWARE  NEWS,  we  find 
ourselves  with  a half  a column  or  so  with  nothing 
small  enough  to  fit.  We  are  looking  for  some 
oartoonists  to  send  us  oomputer  and/or  eleotronlo 
related  original  oartoons  to  fill  these  occasional 


voids.  We'll  pay  you  $5.00  when  we  use  one  in  the 
magazine.  To  see  If  people  read  everything  in  this 
column,  or  just  the  first  few  lines,  we'll  also 
accept  short  programs  too.  Things  along  the  lines  of 
TYD*BYTS,  only  shorter.  The  pay  rate  will  be  the 
same  for  these  as  the  cartoons. 


BUG  ALERT 


Dave  Youngquist  writes  to  alert  us  that  a greeble 
has  found  its  way  into  the  STATIC  RAM  CARTRIDGE 
article  that  appeared  in  the  May/ June  1986  (Volume 
3:5)  issue  of  Sync  Ware  News,  On  page  10f  assembly 
step  #9,  the  text  erroneously  reads  "...connect  to 
pin  27  of  Ea  and  Eb,  at  2e  and  2f."  The  corrected 
instructions  should  be  "...connect  to  pin  27  of  Ea 
and  Eb,  at  2j."  Mr  Youngquist  states  that  the  error 
would  not  have  caused  any  damage  to  the  computer  or 
the  RAM  board.  The  wiring  in  the  artiole  originally 
had  pin  27  of  both  RAMs  connected  to  ROSCS  NOT.  The 
correction  connects  these  pins  to  WR  NOT  as  they 
should  be. 


CHIP  BON ANZA  (at  tmm  wvoo  tw*y  mi  a stiau 
2"  *100  £A  OA  10  *OA  | MO 

21! ■*  IA  oa  10  soa  moo 

2*  S3*  EA  OA  10  SOA  190-00 

2"  M OO  SA  OA  10  SOA  S3M0 

21*  ITOOIA0A  10  SOA  mOO 

**  M M CA  OA  10  S0A  Mi-00 

■*• <aio  si*  ia  omo  ran  sis* 

**» (AM.  »1I*|  »»  EA  OA  10  P0A  M0  00 

•W1  (A|Q  A W *«  fA  OA  10  FOA  1*00 

2*  WMUtvMwiO I FOP  I S9» 

TVO MOON l MtCHOP 64  PIN  8 BIT  CVS  ♦ 10  BfT CPU  | 4tt 

TVS  M01 NL  M1CRO-P  P8J | |* 

TIM  N04ANU  MICRO*  CUJCK  GEN  AND  BfitVFA | &« 

TM0  MilANU  MICAO-P  60L0A  GRAPHICS  AND  DUPLAY-'.  | 
KEYBOARD  (MM)  48  KEYS  MEASURE  4 • 10(HETflQ 


SPECIALS 

IBM  Compatible  Computer* 
Flip-Top  C«M,  Keyboard, 
Power  Supply,  end  Mother 
board  Up  And  Running 
MM, 00  complete  (plus 
M 00  lor  shipping) 

F66  Approved 
CALL  FOR  DETAILS 
INA 

M*  Kelvin.  eert-conteined 
olMtfontf  pdosBr,  end 


or  I lor  1100.00  (plus  M.00 
Ipf  shipping) 


************************************************************************** 


<****************************************************** 

announcing 

The  SyncWare  News 
2nd  (sort  of)  Annual 
Programmers’  COMPETITION 


Syncware  News  is  sponsoring  another  Programmer's 
Contest,  This  time  around,  we're  looking  for  the 
best  in  interactive  educational  software  for 
children.  The  winners  and  the  best  of  the  rest  will 
be  considered  for  publication. 

Interactive  educational  software,  in  this  case,  is 
not  limited  to  Addition  or  Spelling  games  for  first 
graders,  although  these  are  surely  welcome.  We'll 
also  consider  educational  simulations,  demos,  and 
the  like,  Artifical  Intelligence  can  come  into  play 
here,  too,  A simulation  program  that  would  let  a 
student  see  how  a saw  mill  works,  for  instance,  is 
an  educational  program.  It  becomes  interactive  when 
it  asks  questions  about  what  the  child  has  seen 
demonstrated  and  rewards  for  the  appropriate 
response. 


Prizes! 


GRAND  PRIZE  - Best  Program  Over  All 

Writeman  NLQ  Dot  Matrix  Printer  - features  include 

160  cps;  8K  buffer;  Epson  compatible  print  commands; 

9 wire  print  head;  Standard,  Italic,  and 
Proportional  print  characters;  down-loadable  graphic 
characters;  Retail  Value,  $400.00 

FIRST  RUNNER  UP  - TS2068  DIVISION 
32 K Non-Volatile  RAM  Cartridge  Board  - features 
include  32 K of  non-volatile  RAM  which  can  be  mapped 
to  reside  in  either  the  Cartridge  Bank  or  the  EX  ROM 
Bank;  Battery  Backup  to  prevent  data  loss;  runs  from 
100%  battery  power  or  will  draw  power  from  the  2068 
while  the  2068  is  powered  up;  Write  protect  switch; 
Easily  modified  Chunk  specifications;  32K  NVM  can  be 
used  to  mask  EX  ROM  or  contain  LROS  and  AROS 
programs;  Retail  Value,  $110.00 

FIRST  RUNNER  UP  - TS1000/TS1500  DIVISION 
Byte-Back  MD-2B  Modem  - features  include  the  ability 
to  upload  and  download  text  to  and  from  tape  and 
memory;  300  baud  - word  lenght,  parity,  etc. 
selectable;  direct  connects  to  telephone  line; 

RS-232  port;  Retail  Value,  $129.00 


Rules 


Deadline  for  entrys  is  March  15,  1987.  The  winners 
will  be  announced  in  the  July/ August  1987  issue  of 
SyncWare  News.  All  entries  must  include  a CASSETTE 
TAPE  of  the  program(s),  and  should  be  mailed  to: 

SOFTWARE  COMPETITION 
c/o  SyncWare  News 
P.  0.  Box  64 
Jefferson,  NH  03583 
ATTEN:  CONTEST 


Entries  will  be  judged  on  the  basis  of: 

1)  MEETS  CONTEST  CRITERIA  - is  it  educational? 

2)  DOCUMENTATION 

3)  EASILY  MODIFIED  - can  I easily  insert  my  child's 

spelling  words  into  a spelling  program? 

4)  AESTHETICS 

5)  EFFICIENCY  and  SPEED  OF  CODING 

6)  TS2040  PRINTER  SUPPORT  (but  not  mandatory) 

All  entries  must  work  with  NO  ADDITIONAL  HARD- 
WARE (except  the  TS2040  printer,  and  16K-64K  RAM). 
Entries  may  not  make  use  of  additional  commercial  or 
proprietary  software.  This  will  make  judging  entries 
less  of  a monumental  nightmare,  although  support  of 
other  hardware  or  software  options  will  be  taken 
into  consideration.  The  finalists  will  be  judged  by 
a panel  consisting  of  the  staff  of  SyncWare  News. 

All  decisions  of  the  judging  panel  are  final. 

All  entries  become  the  non-exclusive  property  of 
SyncWare  News.  SyncWare  News  reserves  the  right  to 
publish  winning  entries  in  upcoming  issues.  EVERYONE 
is  eligible  to  enter  except  the  staff  of  §yncWare 
News.  East  coast  entries  will  be  judged  on  the  West 
coast  and  all  western  entries  will  be  judged  in  the 
East.  We  are  presently  soliciting  user  groups  to 
judge  entries. 

Remember,  you  can't  win  if  you  don't  enter.  Get 
started  right  away! 


Super  Prizes,  Fame  & Glory 
can  be  YOURS! 


*****************$$***********************************:! 
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2068  LABEL  MAKER 


Created  by  Greg  Dertz  for  Tandy  Color  Computer  II 
and  Modified  by  Bob  Swoger  for  the  SINCLAIR  2068 
TASMAN  B CPI,  and  the  LEGEND  1080  Printer.  A gift 
from  the  both  of  us  to  the  MOTOROLA  MICROCOMPUTER 
CLUB  and  the  readers  of  SYNC  W A RE  NEWS. 

Merry  Christmas  to  all!  It  may  seem  like  I am 
jumping  the  gun  a little  by  wishing  you  a Merry 
Christmas  now.  However,  if  you  are  anything  like  me 
it  will  probably  take  you  until  December  to  get  this 
program  entered  into  the  old  computer. 

Around  Christmas  time,  our  postage  bill  gets  very 
large.  With  all  those  Christmas  cards,  we  send  a lot 
of  mail  during  the  months  of  November  and  December. 

The  cost  of  all  that  mail  is  one  thing,  but  having 
to  hand  write  our  return  address  on  all  of  that  mail 
is  too  much.  Sure,  we  could  go  out  and  get  some 
ready-made  return  labels,  or  even  a rubber  stamp, 
but  those  do  not  show  the  Christmas  spirit  (or  cause 
the  old  2068  to  get  dusted  off  either).  What  we  need 
is  a Christmas  return  address  label  maker  and  thats 
what  this  program  does. 

This  program  will  make  any  number  of  return  address 
labels  on  15/16  inch  pressure  sensitive  labels.  The 
labels  must  be  "one-up,"  meaning  only  one  across  the 
page.  The  label  cannot  be  any  longer  than  3 1/2 
inches.  The  text  of  the  label  is  variable  and 
entered  when  the  program  is  run.  In  addition  to  the 
text  of  the  label,  the  program  also  adds  a small, 
graphically  printed  picture  to  the  label.  Cur- 
rently, the  program  has  four  such  pictures  in  its 
library,  but  the  program  may  be  easily  modified  to 
add  additional  pictures. 
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A VERY  MERRY  CHRISTMAS 
TO:  All  Our  READERS 
FROM:  The  Stall  and  Contributors 
ol  Syncllare  Kens 
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C£)  CHRISTMAS  RETURN  LABLE 
^ And  Gilt  Tig  Maker 

By  G r e g Dertz 
and  Bod  Swoger 
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This  way,  we  now  have  blank,  stick-on  labels  that 
may  be  filled  out  later  and  attached  to  Christmas 
packages.  With  the  use  of  some  graph  paper  you  can 
create  any  number  of  unique  labels  for  any  occas- 
ion. Then,  just  load  your  printer  driver  program 
followed  by  this  program. 

Happy  label  making. 

EDITOR'S  NOTE: 

For  those  of  you  that  have  a modem  and  are  using 
SMART  II  Software,  Messrs.  Dertz  and  Swoger  invite 
you  to  call  the  Motorola  Microcomputer  Club's 
computer  and  download  this  program  to  your  TS2068. 

Set  your  modem  for  7/E/1S  and  have  SMART  II's  buffer 
closed  and  empty,  running  in  hex.  Call  the  computer 
at  (312)  576-7072.  Hit  the  <ENTER>  key  a couple 
times  until  you  get  ->.  At  the  prompt  LOG:,  hit  the 
<ENTER>  key  again.  The  next  prompt  is  ACCOUNT  OR 
NAME:.  Enter  the  word  "account".  You  will  then  be 
asked  for  a PASWORD:;  enter  the  word  "guest".  The 
program  will  automatically  open  the  buffer, 
download,  and  then  close  the  buffer.  When  GOODBYE 
appears  on  your  screen,  hang  up.  Remember  that  you 
are  a guest  in  this  system,  conduct  yourselves  as 
such.  'Nuff  said.-jm 


The  picture  is  printed  using  a graphic  area  of  32  X 
40  dots.  The  picture  is  placed  into  the  program 
using  READ  - DATA  statment  pairs  in  lines  250  to 
260.  To  add  additional  pictures,  one  must  change 
line  40,  MP=4,  which  tells  the  program  the  number  of 
pictures  to  look  for.  One  then  adds  additional  DATA 
statements  to  the  end  of  the  program  which  contains 
the  DATA  for  the  new  pictures. 

At  the  top  and  bottom  of  the  label  is  a graphic 
scroll  which  frames  the  label.  This  scroll  is  of  a 
variable  length  and  its  length  is  calculated  from 
the  length  of  the  text  to  be  printed.  The  text 
itself  is  entered  when  the  program  is  run.  The  text 
has  a maximum  of  four  lines,  but  blank  lines  may  be 
entered  if  required.  The  first  line  is  printed  in 
the  emphasized  mode  which  calls  attention  to  the 
line.  The  remaining  three  lines  are  printed 
compressed,  which  allows  printing  the  greatest 
amount  of  information  on  the  line.  The  program  was 
written  for  the  LEGEND  1080  printer  but  should  run 
on  any  EPSON  RX-80  with  GRAPH  TRAX  compatible 
printer  with  only  a slight  modification  to  the 
scroll  length  formula  do  to  the  fact  that  LEGEND 
1080  is  a 142  column  printer  while  most  others  can 
only  do  132  columns. 

In  addition  to  return  address  labels,  we  have  also 
used  the  program  to  print  out  Christmas  gift  tags. 

We  enter  the  four  lines  as  follows: 

A VERY  MERRY  CHRISTMAS 
TO: 

FROM: 


America’s  BEST  Timex/Sinclair  Magazine 
is  now  the  BIGGEST! 

YDOffll  ©lIgDdKIg  HA©A10N]G1 

A valuable  resource  for  your  TS  2068,  TS  1000  (zx81), 
TS  1500,  Sinclair  Spectrum  and  Sinclair  QL. 


SEPT/OCT  86 
VOL. 2 NO.C 

S3.oo  -JSrr"  Largest  Circulation 


Delivered  on  Timel 


DON’T  DELAY.. .TRY  A SUBSCRIPTION  TODAY! 

Send  Name,  Address,  along  with  check/MO  OR  Credit  Card  NoJExp.  date  to: 

TIME  DESIGNS  MAGAZINE  COMPANY 

29722  Hult  Rd.,  Colton,  OR  9701 7 (503)  824-2658 
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10  REM  CHRISTMAS  LABEL  GENERAT 
GR 

20  REM  WRITTEN  BY  GREGORY  A, 
DERTZ  & ROBERT  E.  SUOGER  ©N 

OUEMBER  23 . 1935 
40  LET  MR =4 

50  DIM  A $(4.36):  DIM  5(12):  DI 
M K ( MR , 4 , 40 ) : DIM  X ( 4 ) 

60  REM  THIS  IS  THE  DATA  FOR  TH 
E UPPER  AND  LOWER  SCROLL 
70  FOR  1=1  TO  12 
30  READ  Si I) 

90  NEXT  I 

100  DAT  A 64 . 32  • 43-  .,24.,  23  ..  23  ..  23  ..  2 
3.24,43, 32 , 64 
110  LET  LC  = 1 

120  CL 5 : PRINT  " WELCOME  TO 

THE  CHRISTMAS" 

130  PRINT  " RETURN  ADDRESS  LABE 
L PROGRAM . " , , , 

140-  PRINT  "I  WILL  FIRST  ASK  FOR 
YOUR  NAME  AND  ADDRESS (4  LINES 
MAX.) . THEN  " 

160  PRINT  " PRINT  OUT  THE  NUMBE 
R OF  RETURN  " 

170  PRINT  "ADDRESS  LABELS  REOUE 
STED . " , , , 

130  PRINT  "THE  FIRST  LINE  OF  TH 
E LABEL  UILL " 

190  PRINT  "BE  PRINTED  EMPHASIZE 
D.  THE" 

200  PRINT  "REMAINING  THREE  LINE 
5 UILL  BE" 

210  PRINT  "PRINTED  COMPRESSED . " 

220  PRINT  " TO  USE  ME  YOU  MUST 
HAUE  LABELS" 

230  PRINT  "THAT  ARE  1 TO  THE  IN 
CH  AND  ARE- 

240  PRINT  "ONE  UP  ON  THE  SHEET. 

245  REM  WHILE  THE  USER  IS  READ 
ING  THE  ABOVE  STUFF,  START  READ 
ING  THE  DATA  FOR  THE  PICTURES. 

250  FOR  1=1  TO  MP 
260  FOR  J=1  TO  4 
2 70  FOR  X =1  TO  40 
230  READ  K ( I , J , X ) 

290  NEXT  X:  NEXT  J:  NEXT  I 

300  GO  SUB  900 

310  CL 5 : PRINT  "EXAMPLE: " , , , , ” 

MERRY  CHRISTMAS" , , "John , Mary , J 
irr: . £c  Spot  "."1234  Any  Street":  P 

PINT  "This  TOlL»n  . IL  60000",,, 

320  REM  NOW  ASK  FOR  THE  RETURN 
ADDRESS  INFO 
330  FOR  1=1  TO  4 

340  PRINT  " LINE  ";I;"?  ";:  INP- 

UT G$ 

350  IF  G$  =" " THEN  GO  TO  365 
360  LET  X (I) =LEN  G$ : LET  A$(I)= 

G$ 

365  PRINT  A $ ( 1 , 1 TO  ) 

370  NEXT  I 
375  PAUSE  150 

330  CL 5 : REM  NOW  ECHO  THE  INPU 

T FOR  CONFERMAT ION . 

390  FOR  1=1  TO  4 
400  PRINT  A $ ( 1 , 1 TO  ) 

410  NEXT  I 

420  PRINT  : RANDOMIZE  USR  64719 

430  INPUT  "C0RRECT7  " T $ 

440  IF  T$  = "‘4"  OR  T $ ="Y " OR  T$  = " 
YES"  THEN  GO  TO  470 
450  IF  T $ ="n " OR  T$  = "N"  OR  T$  = " 
NO"  THEN  GO  TO  330 
460  GO  TO  390 

465  REM  THIS  SECTION  WILL  NOW  C 
ALCULATE  THE  LENGTH  OF  THE  SCROL 
L BASED  ON  THE  LENGTH  OF  THE  LON 
GEST  INPUT  TED  LINE  . 

470  LET  H =X ( 1 ) 

430  FOR  1=2  TO  4 

490  IF  (15/27) * (X (I) ) >H  THEN  LE 
T H = INT  ( (15/27)  * (X  (I)  ) ) 

500  NEXT  I 

510  LET  H =5+ ( I NT  ( (2/3)  *H)  ) 

520  IF  H >22  THEN  LET  H=22:  REM 

CHECK  FOR  OUERFLOW 
525  REM  NOW  PRINT  THE  LABELS 
530  INPUT  "NUMBER  OF  LABELS  TO 
BE  PRINTED?  ";N 

540  PRINT  "INSERT  LABELS  AND  LI 
NE  UP  THE" 

550  PRINT  "FIRST  LABEL. " , , , , 


530  REM  NOW  CLEAR  THE  PRINT  ER 
AND  SET  LINE  SPACING  TO  3/72  INC 
H 50  THAT  THERE  WILL  NOT  BE  SR AC 
ES  BETWEEN  THE  LINE  S OF  THE  PIC 


TURE 

531  L PRIHT  CHR$  27; CHR$  27 ;"0"; 
CHR$  27 ; CHR$  27;"A";CHR$  27;€HR$ 
(3)  ; 

535  REM  NOW  THEN  PRINT  ALL  OF  T 
HE  LABELS 
590  FOR  Z=1  TO  N 
60-0  PRINT  "LABEL  NO.  " ; Z , • 

610  GO  SUB  340:  REM  PRINT  THE  U 

PPER  SCROLL 


620  FOR  L =1  TO  4 

530  L PRINT  CHR $ 27; CHR$  27;  "L"; 
CHR$  ( 30 ) ; CHR$  27;  CHR$  (0)  .;, 

640  FOR  C=1  TO  40  REM  PRINT  PI 
CTURE  LINE 

660  LPRINT  CHR$  27; CHR$  (K(LC,L 
. C));CHR$  27; CHR$  CK(LC,L,C)); 
670  NEXT  C 

630  IF  L =1  THEN  LPRINT  CHR$  27; 
CHR$  27; "E"; : REM  PRINT  THE  FIRS 

T LINE  EMPHASISED 
690  IF  L =2  THEN  LPRINT  CHR$  27; 
CHR$  27 ; " F" ; CHR$  27; CHR$  15;CHR$ 
27 ; CHR$  (27);"G";:  REM  PRINT  AL 

L OTHER  LINE  5 COMPRESSED 
700  LPRINT  A$CL) 

710  NEXT  L 

720  GO  SUB  340:  REM  NOW  PRINT  T 

HE  LOWER  SCROLL 

725  LET  LC=LC+1:  REM  INCREMENT 

THE  PICTURE 

726  IF  LC  =MP  + 1 THEN  LET  LC=1 

730  LPRINT  : LPRINT  : LPRINT 

740  LPRINT  CHR$  27; CHR$  27; "H"; 

: RESTORE  : PRINT  "PRINTED" : NEX 

T Z 

790  LPRINT  CHR$  27;CHR$  27; "0"; 

: REM  NOW  DONE,  SO  RESET  THE  PRI 

NTER 

300  INPUT  "WOULD  YOU  LIKE  MORE 


LABELS?  “;T$ 

310  IF  T$="y " OR  T$="Y"  OR  T$=" 
YES"  THEN  GO  TO  330 
320  IF  T$="n"  OR  T $ = "N"  OR  T$  = 
"NO"  THEN  PRINT  "O.K.  THANK  YOU 
FOR  USING  ME.":  STOP 

330  GO  TO  300 

340  LPRINT  CHR$  27; CHR$  27; "H"; 
CHR$  27; CHR$  27;"K";CHR$  27; CHR$ 
( 12-3E-H)  ;C-HR$  27;  CHR$  (0)  ; 

350  FOR  B =1  TO  H 
360  FOR  1=1  TO  12 


370  LPRINT  CHR$  27; CHR$  (5(1)); 
330  NEXT  I:  NEXT  B:  LPRINT  : RE 

TURN 

900  PRINT  AT  21.4;  "HIT  <ENTER  > 


TO  CONTINUE  " 

910  LET  T$=INKEY$:  IF  T$=“"  THE 

N GO  TO  910 
920  RETURN 

1000  REM  TREE  ARRAY  LC=1 
1010  DATA  0 . 0 . 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0.0.0,0.0,1.7,63, 255 
102©  DATA  255 , 63 ,7, 1,0, 0,0, 0,0,0 
.0.0. 0.0. 0,0. 0.0, 0,0 
1030  DATA  0.0. 0,0. 0.0. 0.0. 0.0,0, 
0.1.3.7.79. 223 . 255 . 255 , 255 
1040  DATA  255,255,255,223,79,7,3 
.1.0. 0.0. 0.0. 0.0. 0.0. 0.0.0 
i050  DATA  0.0, 0,0, 0,0, 0,0, 0,1, 35 
. 239 . 255 . 255 , 255 , 255 , 255 , 255 , 255 
.255 

1060  DATA  255 . 255 , 255 , 255  ,'255 , 25 
5 . 255 . 255 . 239 ,35.1.0.0,0.0.0.0.0 
.0.0 

1070  DATA  0.0,0,0,0,16,43,112,24 
0 . 240 . 240 , 240 . 240 . 240 , 24© , 240 , 24 
0 .255.255,255 

1030  DATA  255.255.255.240.240.24 
0 , 240 , 240 , 240 , 240 , 240 , 24© , 112 , 43 

. is . 0 . 0 . 0 . 0 . 0 

1090  REM  BELLS  ARRAY  LC=2 
1100  DATA  0.0, 0,0, 0,0, 0,0, 0,0,0, 
0.1,3. 3 , 7 , 3 ,0,7,7 

iil0  DATA  15,15,31,31,15,15,7,7, 
0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 , 0 , 0 , 0 , 0 
1120-  DATA  0,2,3,3,3,3,7,15,31,63 
. 127 . 255 . 255 . 255 , 255 , 243 , 7 , 255 , 2 
55.255 
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1130  DATA  255 .255 .255 .255 .255  ,25 
5 , 255 , 255 , 255 .7:0. 0.8. 0,0. 0,0,0, 
0 . 8 

1143  DATA  8,3,3, 152 , 252 . 252 , 243  , 
243 , 243 , 252  , 254 , 255  255  '.  254  '.  241 
15 , 255 , 255 , 255 . 255 

1153  DATA  255,255.255.255.255,25 

5 . 255 . 255 . 255 . 255 .15.1.8.3.3.3.3 
,0.3, 3 

1168  DATA  3, 8. 3, 0.3. 0,8, 0,3=8. 8 
64 , 64 , 132 , 132 , 132 , 132 , 132  i 132  ’.  13 

11 78  DATA  132 , 132 , 132 , 132 , 132 , 13 
2 .,  132 , 216 , 252 , 252 ,216 . 132 . 132 , 64 
,64,0.3,3.8.3 

1163  REH  STOCKING  ARRAY  LC=3 
1130  DPT P 8,7, 2 ,1,7 , 3 , 3 , 3 , 8 , 3 , 3 , 
0, 0.0, 0,0. 0,3, 3,8 

1203  DPT P,  ' 3 , 8 ',  8 = 0 . 3 . 3 , S , 3 , 1 , 1 , 29 

, 51 , 62 , 12 ,8,3,3 , 3 , 3 , 8 

1218  DhTh  3 , 123 .0.0. 128 . 3 . 68 , 36 , 

36.60.3.1.1.1.1.0. 8.3.0.0' 

1228  DPTP  3,3,8,43.44.67.135.135 
, 15 , 31 , 31 , 153 , 127 .15.3.3,3.3,0,3 
1233  DPT H 3, 0.3, 0.8, 0,3. 0.3, 0,8, 

248 .30.16.16.0. 15.1.1.1 

1248  DPTP  3 . 3 , 0 . 3 . 3 , 123 . 227 . 255 , 
255 , 255 , 255 , 255 , 255 , 255 ) 255 i 255 , 

63 . 12 .3.3 


1258  DPTP  3,0, 3,0, 0.0. 3.3. 0.0, 8, 
0,0, 3, 8, 3, 3, 3,0,0 

1263  DPTP  3.24.60.126.254.254,25 
4,252 ,252 ,243 ,243 .224 . 132 .3,3,3, 
8 . 3 , 8 , 8 

1273  REH  CPNDLE  PRRPY  LC=4 
1238  DPTP  3, 3. 3. 0.3. 0,0. 3.8, 3.3, 
3 , 8 , 8 , 7 , 24 , 32 , 64 . 123 . 123 
1233  DPTP  131,132,136.132.-131.12 

3 . 128 . 64 . 32 . 24 .7. 0. 0. 0.0. 0.0. 0.0 
. 3 

1380  DPTP  3,1.6,8.16.32.36.96, 32 
,16,3,6.1.0 , 132 .32.16.0.0,0 
1318  DPTP  207,47.31.47.207.0.0.8 
, 16 . 32 . 132 .0.0. 0.0. 0.0. 0,0.0 
1323  DPTP  8, iS2, 48, 12,6,2,37,33, 
33 , 33 , 33 . 65 ,1.1, 1.1.1. 1.1.1 
1330  DPTP  255,255 .255,255,255, 1 . 

1.1. 1.1. 1.1. 1.1. 1.1.1. 1.0. 0 
1348  DPT  H 8, 0,3, 3.3, 0.3. 3.0, 0,3, 
243 , 243 , 243 , 248 . 243 . 243 . 248 . 248 , 
243 

1353  DPTP  243 , 243 . 243 . 248 . 243 , 24 
3 , 243 , 243 , 243 , 243 , 243 , 224 , 192 , 12 

3. 0.0. 0.0, 0,0 

9996  CLEAR 

9997  SPUE  " XMSLBL5 " LINE  1 
9993  VERIFY  "XHSLBLS" 
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TSIOOO  ADVANCED 
CALCULATOR  PROGRAM 


Donald  L.  Dean 
Pyramid  Electronics 

My  work  is  primarily  applied  math  and  engineering 
design.  In  addition  to  using  mirco  and  main  frame 
computers,  much  of  the  work  is  'one  time  thru'  eval- 
uation of  complex  formulas  and  expressions.  Prior  to 
developing  the  programs  presented  herein,  this  was 
done  with  scientific  calculators  and  hand  written 
'engineering  notes'  which  were  passed  on  to  the 
client.  Use  of  CALPR-1  below  greatly  increased  the 
accuracy  and  efficiency  of  this  work  and  the  print- 
out replaced  the  need  for  hand  written  notes.  I pre- 
dict anyone  presently  doing  scientific  computations 
'manually'  will  find  this  concept  helpful. 

These  programs  convert  the  TS-1000/1500  computer 
(with  16  col.,  32  col.  or  an  80  col.  printer)  into  a 
superior  printing  scientific  calculator  which  saves 
the  last  25  formulas  and  900  variables  for  reference 
and/or  use  in  future  expressions.  The  enhanced  ver- 
sion, CALPR-1,  provides  for  labeling  of  all  expres- 
sions and  variables  for  improved  calculation  notes. 
Poking  to  modify  memory  enables  this  to  be  done 
without  formal  use  of  arrays. 

CALPR-0  uses  no  screen  prompts.  The  writer  has  used 
it  with  a computer,  16  col.  printer,  battery  and  no 
display  as  a convenient  portable  unit.  The  program 
is  started  with  GOTO  10,  which  preserves  past  vari- 
ables and  expression  strings  (formulas).  The  screen, 
if  used,  shows  the  computer  awaiting  a string  input, 
which  may  include  previous  results  (variables), 
functions,  numbers,  etc.  Upon  input. Ing  your  next 
expression,  it  and  the  result  (with  a two  character 
notation)  appears  on  the  screen.  Aft>er  a two  second 
pause,  they  are  also  sent  to  the  printer.  The  next 
string  is  then  called  for  and  the  cycle  repeats. 

Strings  A$  thru  Y$  are  preserved  and  the  results  are 
labeled  AO  thru  YZ  (900  permutations). 


Program  CALPR-1  is  similar  except  that  provision  is 
made  for  the  operator  to  label  each  expression 
string  and  result  variable.  The  labels  and  results 
are  shown  on  the  screen  and  sent  to  the  printer. 
Prompts  to  input  an  expression,  EXP$  or  a label, 
LABEL  are  shown  on  the  screen.  Expression  strings  A$ 
thru  X$  are  preserved  and  variables  A0  thru  XZ  (864 
permutations)  are  preserved. 


CALPR-1  BY  D.L.  DEAN  A PRINTING 
SCIENTIFIC  CALCULATOR  PROGRAM 
UITH  EXTENDED  MEMORY  AND  LABELS 


13  INPUT  A $ 

15  LET  Z$=A$ 

23  LET  Z=UAL  Z$ 

22  LET  A3  =Z 

23  PRINT  'LABEL  "; 

24  INPUT  Y $ 

25  PRINT  Y$,CHR$  (PEEK  16514); 
:$=  "\Z$,ChR$  PEEK  16514; CHR$  PE 
EK  ifc545 ; " = ** ; Z 

27  PAUSE  128  , 

29  L PRINT 

30  L PRINT  Y$,CHR$  (PEEK  16514) 
$=  " ; Z$ , CHR$  PEEK  16514 ; CHR$  P 

EEK  16545;"=  " ; Z 

35  IF  PEEK  16514 >=61  THEN  GOTO 
53 

37  PRINT 

48  POKE  16514 . (1+PEEK  16514) 

45  POKE  16525.  (1+PEEK  16525) 

46  POKE  16544. i+PEEK  16544 

47  GOTO  18 

53  POKE  16514,38 
55  POKE  15525 , 38 
57  POKE  16544 , 33 
53  POKE  16545 . (1+FEEK  16545) 

53  IF  PEEK  16545 >63  THEN  POKE 
16545 , 23 

b3  liOTO  13 

30  PRIHT  "CALPR-1  BY  D.L.  DEAN 
A PRINTING  SCIENTIFIC  CALCULATO 
R PROGRAM  UITH  EXTENDED  MEMORY 
AND  LABELS" 


SYNTACTIC  SUM  = 35363 
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CALPR-©  BY  D.L.  DEAN  A PRINTING 
SCIENTIFIC  CALCULATOR  PROGRAM 
UITH  EXTENDED  MEMORY 


10  INPUT  A $ 

15  LET  Z$  =H$ 

20  LET  Z=UAL  Z$ 

22  LET  A0=Z 

25  PRINT  CHR$  (PEEK  15514);*$= 
**;Z$,CHR$  PEEK  16514;  CHR$  PEEK 
15545;**=  ; Z 

27  PAUSE  120 

29  LPRINT 

30  LPRINT  CHR$  (PEEK  16514);**$ 

= ; Z$  . CMR$  PEEK  16514;  CHR$  PEEK 

16545;  **=  ** ; Z 

35  IF  PEEK  16514 >=62  THEN  GOTO 
50 

40  POKE  16514.,  (1+PEEK  16514) 

45  POKE  16525 , (1+PEEK  16525) 

45  POKE  16544 } 1+PEEK  16544 

47  GOTO  10 

50  POKE  16514,36 

55  POKE  15525,33 

57  POKE  16544,38 

53  POKE  16545.,  (1+PEEK  16545) 

59  IF  PEEK  16545 >63  THEN  POKE 
16545,23 

60  GOTO  10 

30  PRINT  “CALPR-0  BY  D.L.  DEAN 
A PRINTING  SCIENTIFIC  CALCULATO 
R PROGRAM  UITH  EXTENDED  MEMORY 


SYNTACTIC  SUM  = 33135 


Syntactic  Sum 

The  ’SYNTACTIC  SUM’  shown  after  the  programs  is  a 
convenient  parity  check  which  was  required  by  the 
editors  of  the  now  defunct  Sinclair  oriented  news- 
letter SYNTAX  ZX80,  a publication  of  the  Harvard 
Group.  It  is  apparently  a code  sum  of  all  characters 
in  the  program  listing.  Matching  this  number  insures 
that  it  has  been  ’punched  in*  correctly  (two  cancel- 
ing errors  which  defeat  the  check  sum  is  most  un- 
likely). This  sum  was  obtained  by  running  a 24  byte 

MC  program  (AF  47  67  6F  E5  2A  OC  40  11  7D  40  2B  4E 

E3  09  E3  E5  ED  52  El  20  F5  Cl  C9  in  hex)  which  was 

poked  in  above  a lowered  RAM  TOP  before  loading  or 
typing  in  the  program  to  be  tested.  For  example, 
with  16K  RAM,  lower  RAM  TOP  to  32743  (POKE  16389,127 
A POKE  16388,231),  place  MC  bytes  from  32744  to 
32767  and  get  check  sum  with  command  PRINT  USR 
32744.  Use  the  hex  loader  of  your  choice  or,  for  so 
short  a program  manual  conversion  to  decimal  code 
and  24  POKEs  isn’t  prohibitive.  Incidently,  the  sum 
for  CALPR-1  requires  use  of  inverted  characters  for 
EXP  in  line  37  and  the  token  AND  in  line  80. 

(Syntactic  Sum  program  reprinted  by  permission  of 
the  Harvard  Group.-ed.) 


1 REM  SYNTACTIC  SUM 

2 REM  I6K  VERSION 

3 REM  PART  ONE 
10  POKE  16339 , 127 
15  POKE  16333,231 
20  NEU 


LOADER  1 REM  SYNTACTIC  SUM  LOADER 

2 REM  16K  VERSION 

3 REM  PART  TUG 
10  FOR  1=1  TO  24 
15  SCROLL 

20  PRINT  " INPUT  NO.  "Jl. 

25  INPUT  A$ 

30  PRINT  A$ 

35  POKE  1+32743 , (16*C0DE  A$+CO 
DE  A$  (2)  -476) 

40  NEXT  I 


INPUT  NO . 1 
INPUT  NO . 2 
INPUT  NO . 3 
INPUT  NO . 4 

INPUT  NO.  5 
INPUT  NO . 6 
INPUT  NO . 7 

INPUT  NO . 3 
INPUT  NO . 9 
INPUT  NO . 10 

INPUT  NO.  11 
INPUT  NO . 12 


AF  INPUT 
47  INPUT 
67  INPUT 
6F  INPUT 
E5  INPUT 
2A  INPUT 
0C  INPUT 
40  INPUT 
11  INPUT 
7D  INPUT 
4©  INPUT 
2B  INPUT 


NO. 

13 

4E 

NO  . 

14 

E3 

NO. 

15 

09 

NO. 

16 

E3 

NO. 

17 

E5 

NO. 

IS 

ED 

NO . 

19 

52 

NO  . 

20. 

El 

NO. 

21 

2© 

NO. 

22 

F5 

NO. 

23 

Cl 

NO. 

24 

C9 

Notv  at  last ...  ^ 

The  FootePrint  * 
Printer  Interface 

• for  Centronics  parallel  printers 

• works  in  both  2068  and  Spectrum  mode 

• compatible  with  OS-64  Spectrum  emulators 

• EPROM  socket  and  on/off  switch  on  board 

• works  with  both  Tasman  and  Aerco  driver  software 

• plugs  into  cartridge  dock — door  completely 
closes  with  cable  running  back  under  computer 

• frees  up  rear  edge  connector  allowing  other 
peripherals  to  be  used;  less  chance  of  a crash 

• print  driver  software  for  LPRINT,  LLIST,  and 
COPY  included  for  2068  and  Spectrum  modes 

FootePrint  Interface  w/software  cable  .$4500 
FootePrint  with  OS-64  option  included  . .$6500 


Bare  board  instructions  only $I500 

Cable  only  for  use  with  bare  board $1500 


All  prices  are  pre-paid  and  include  shipping  charges. 

FOOTED  SOFTWARE 

P.  O.  Box  14655  - Gainesville,  FL  32604 
904/462-1086  (6  pm  - 9 pm  EDT) 


SOFTSYNC  TS2068 
Inventory  Liquidation 

Zebra  Systems  has  just  completed  a special 
purchase  of  all  the  Timex/Sinclair  product  left  in  Softsync’s 
warehouse  in  order  to  bring  you  these  fine  programs  at  special  low 
prices.  Softsync  started  in  the  Timex  market  with  excellent 
products.  But  they  now  focus  on  IBM,  Commodore  and  other 
large  markets,  where  they  sell  products  like  the  Personal 
Accountant  for  much  more  money. 

All  product  is  new  and  packaged  with  documentation  in 
Softsync’s  attractive  four-color  boxes.  Quantities  are  limited,  so 
act  now.  These  products  list  at  $19.95  to  $24.95  and  are  in  our 
regular  catalog  for  $17.95  to  $22.95.  But  now'our  liquidation  sale 
prices  are  as  follows: 

SALE  PRICES: 

1 for  $10,  2 for  $19,  3 for  $27, 

4 for  $34,  5 for  $40,  all  6 for  $45. 

Zeus  Assembler  Cat#  SS05 

Zeus  Monitor  and  Disassembler  Cat#  SS06 

Cyberzone  Cat#  SS02 

Personal  Accountant  Cat#  SS04 

Voice  Chess  Cat#  SS01 

Cuplman  Cat#  SS03 

Ordering  Instructions:  include  $3.oo  s&H.  visa/mc 
Accepted.  Zebra  Systems,  Inc.,  78-06  Jamaica  Ave., 
Woodhaven,  NY  11421,  (718)  296-2385. 
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2068  WINDOWS 

by  Paul  Bingham 


With  the  wave  of  new  micros  touting  their  window 
abilities  maybe  other  2068  owners  like  myself  have 
been  keeping  quiet.  Well,  if  you  have  been  feeling 
sorry  for  yourself  because  you  have  a computer  that 
"won’t  do  windows"  then  cheer  up!  Those  windows  are 
painlessly  easy  on  the  mighty  2068! 

Actually,  the  normal  24  row  by  32  column  screen  is 
treated  as  three  separate  "windows"  by  the  2068 
already.  These  begin  as  blocks  in  memory,  each 
starting  with  their  own  address.  These  are  shown  as 
A,  B,  and  C in  figure  1.  Try  this  little  program 
line  out  after  a CLS  command:  FOR  t=16384  TO  22527: 
POKE  t,255:  NEXT  t and  watch  the  display.  You  should 
see  a line  form  at  the  top  of  each  character  square 
successively  until  each  square  is  filled  in.  Notice 
that  the  first  block  of  eight  rows  completely  fills 
in  before  even  the  first  byte  of  the  second  block 
fills  in.  The  display  file  is  thus  split  into  three 
blocks  of  2048  bytes  each. 

Now  no  one  reading  this  needs  to  have  any  more 
computing  ability  than  knowing  how  to  type  in  a 
program  listing.  I will  try  to  explain  as  we  go  and 
let  the  2068  do  the  rest.  If  you  read  Robert 
Hartung's  article  back  in  May/ June  ’85  of  SWN,  he 
explained  a nifty  routine  the  Z80  chip  in  our  2068 
possesses  called  LDIR.  LDIR  is  great  for  moving  huge 
chunks  of  memory  (like  the  screen  uses)  around 
quickly.  Line  5 of  listing  #1  among  other  chores 
sets  up  all  the  LDIR’s  machine  code  we  will  need. 

Now  to  how  we  are  going  to  do  windows.  With  windows 
we  want  to  temporarily  overlay  text  or  something  (in 
the  window)  over  what's  there  already.  The  hitch  is 
not  to  lose  what  was  there  already!  Windows  aren't 


Figure  I 


COLUMNS 

0 

first  bate  16384 

HI NOON  A 

7 

last  bate  18431 ^ 
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^ first  bate  18432 

0 
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H 

S 15 

last  bate  28479  ^ , 

IS 

^ first  bate  28488 

HINDOH  t 

21 

louer  screen^  twt  bate  22527 

1^® 

la— mi 

much  use  if  after  we  use  them  they  leave  a blank 
space.  By  reserving  space  enough  to  store  the 
original  screen  contents,  we  can  use  the  LDIR 
routine  to  put  the  original  back  on  the  screen 
unaltered.  If  our  windows  will  only  be  appearing  in 
one  of  the  three  blocks  of  the  screen  then  reserving 
2048  bytes  for  storage  is  ample.  In  listing  #1  I use 
CLEAR  59198  in  line  5 to  give  us  enough  room  for  all 
three  at  once  — the  whole  screen. 


Listing  1. 


1 REM  £0bS  Windows! 

5 CLERR  591Q3:  DIM  W$  (3 . 113  • 

LET  a $ ="  WINDOW  **  : LET  b $ = " p r £ S £ ' " 

LET  store  =59199:  LET  renew =592 

1 1 : LET  l owe  r =23659  : FOR  t ==•  tore 

TO  59222:  RERD  f:  POKE  t.f-  NE'x 
T t : DfiT fi  1 , 0 , 24 , 17 . 87 . 230.  . 33 . 0 . 
64 , 237 , 176  =201,1,0,24.17.0',  64 , 33 
,37,231,237,176,201:  REM  (sets  u 

p LDIR  code) 

10  FOR  t =65363  TO  65431:  RERD 

3_  POKE  _ t , 3 : NEXT  t:  DRTR  15,3,3 

, 3 , L32 , 232 , 232 , 232 , 255 , 0 . 0 , 0 . 0 . 0 
, 0 , 0 , 255 ,14,1,1,1.1.1’.  232 . 232 . 2 
32 , 232 , 232 , 232 . 232 . 232  '.  1 . 1 '.  1 . 1 1 
,1,1,1 , 232 , 232 , 232 , 239 , 224 , 255 , 2 
55 , 255 ,0,0=0. 255 . 0 . 255 . 255 , 255 , 1 
,1,1 , 255 , 0 , 224 . 224 . 224  '* 

100  POKE  lower, 0:  FOR  f =1  TO  76 

: PRINT  "1234567890";  : NEXT  f-  P 

PINT  "12345673":  POKE  lower, 2 
110  LET  K =U5R  Store 
120  LET  n=i:  LET  W$(n) ="11,12.0 
2,03":  GO  SUB  9000 

140  PRINT  RT  4 , 6 ; a $ ; RT  6,3;  "ttl" 
; RT  11,5; b$ ; "2" 

150  IF  IN KEY $ < > "2 " THEN  GO  TO  1 
50 


170  LET  n =2 : LET  W$  in ) =" 13 , 20 . 0 

2.17":  GO  SUB  9000 

130  PRINT  RT  5.21; a $ ; RT  7 ,23; "tt 
2"  .;  RT  19,20;  b$;  "3" 

190  IF  IN KEY $ < > " 3 " THEN  GO  TO  1 
90 

200  LET  K=USR  renew 
210  LET  n=3:  LET  w$  Cn  ) ="  10 , 03 . 1 

6,04":  GO  SUB  9000 

220  POKE  Lower  =0:  PRINT  RT  17  , F. 

a $ ; RT  19,3;  "#3";  RT  22 . 6 ; b$ ; "E" • 
POKE  Lower, 2 

230  IF  IN KEY $ < > "€ " THEN  GO  TO  2 
30 

240  CLS  : PRINT  RT  3 . 6 ; " " ; : Fnp 

t=l  TO  20:  RERD  a:  PRINT  CHP$  a 

NEXT  t : DHTR  77.111.113. 101 . 3 

111 , 113 , 101 , 114 , 32.77.65.67. i0 
. 110 , 116 , ill , 115 . 104 . 33 
250  GO  TO  9999 

9000  LET  W=URL  W$ (n , TO  2) : LET 

d =URL  W$(n  ,4  TO  5)  : LET  r =URL  w$ 

in,  7 TO  8):  LET  C =URL  W$  (,n  . 10  TO 

11)  . t 

9010  IF  r+d >24  OR  C+W>32  THEN  PR 
INT  RT  21,10;"  UindOW' S t O 0 b i q 1 
" : STOP 

9020  IF  r+d >22  THEN  LET  lOW=0:  L 

ET  r 3 =24- r -d : GO  TO  904© 

9030  LET  LOW =2:  LET  r3=2 

9040  LET  r d = r +d -2 : LET  CW  = C +W-3 

90S©  POKE  Lower, LOW:  PRINT  RT  r. 

C.;CHR$  144;:  FOR  t =C  TO  CW  PPIN 

T CHR$  145.;:  NEXT  t:  PRINT  CHR$ 

146 

9060  FOR  t =r  +1  TO  rd:  PRINT  RT  t 

, C ;CHR$  147; 

9070  FOR  f=c  TO  CW:  PRINT  " ";• 

NEXT  f : PRINT  CHR$  143;:  NEXT  t 

9©30  IF  C3=0  THEN  OUER  I:  FOR  t= 


I TO  32 -W:  PRINT 

UER  0:  PRINT  CHR$  149 

TO  CW:  PRINT  CHR$  150 


NEXT  t : O 

FOR  t = C 
NEXT  t : 


POKE  Lower, 2:  RE 


PRINT  CHR$  151: 

TURN 

9090  PRINT  RT  rd+l.c;CHR$  149; 
FOR  t=C  TO  CW:  PRINT  CHR$  150; 

NEXT  t:  PRINT  CHR$  151:  POKE  LOW 

e r , 2 : RETURN 

9900  SRUE  "windows"  LINE  5 
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In  drawing  quality  window  outlines  we  could  use  the 
DRAW  command  to  make  lines  and  shadows.  But  using 
the  2068  UDGs  is  quicker  and  cleaner.  Line  10  sets 
up  all  eight  UDG  characters  we  will  need  for  elegant 
windows.  This  particular  line  abandons  the  need  for 
BIN  statements  as  suggested  in  the  User  Manual. 

(This  is  the  technique  I used  in  the  Tyd/bit  column 
of  the  Jan/Feb  ’85  SWN.)  Once  set  up  these  UDG 
characters  can  be  printed  as  easily  as  any  symbol. 
These  graphic  characters  are  detailed  in  figures  2 
and  3.  The  BASIC  in  listing  #1  lines  9000  onward 
calculate  where  each  UDG  goes  in  order  to  form  nice 
window  borders. 

The  routines  in  lines  9020  and  9080  deal  with  the 
lower  two  lines  of  the  screen.  The  User  manual 
refers  to  these  as  "not  usable".  Its  in  these  lines 
that  the  2068  badgers  us  for  all  the  foolish  syntax 
errors  we  made  in  our  programming.  Well,  these  lines 
are  not  at  all  off  limits  if  we  obey  a few  simple 
rules.  If  we  POKE  a zero  into  the  system  variable  DF 
SZ  at  23659  (also  a no-no  in  the  User  Manual— see  pg 
263)  the  2068  is  lead  to  believe  it  has  zero  lines 
at  the  bottom  of  the  screen.  PRINT  AT  22,0  works! 
PRINT  AT  23,0  does  not  work,  though.  (Unless  you 
wanted  a good  crash.)  AT,  TAB,  and  commas  don’t 
apply  to  line  23.  The  only  way  is  to  start  in  line 
22  and  print  spaces  over  the  existing  screen 


characters  one  by  one  to  arrive  at  the  desired 
position.  This  is  how  its  done  in  line  9080  of 
listing  #1.  And  now  for  rule  two:  always  POKE  DF  SZ 
back  to  "2"  after  printing  in  the  lower  screen  lines 
before  you  go  on.  Here  the  ounce  of  prevention  is 
worth  a half  ton  of  cure. 

4 , 4 

If  you  have  yet  to  type  in  listing  #1  and  run  it, 
then  now  is  a good  time  to  try  it.  Lines  100  through 
250  of  listing  #1  are  a demo  section  for  three 
sample  windows.  These  can  be  deleted  with  DELETE 
100,  250  and  your  own  program  inserted.  Listing  #2 
can  be  inserted  in  here  as  well.  It  is  a simple 
customizing  program  to  design  your  own  windows.  For 
more  than  three  windows  you  will  want  to  change  the 
DIM  statement  in  line  5 to  more  than  "3".  The  eleven 
stays,  however. 

The  input  line  110  in  listing  #2  takes  the 
parameters  like  the  QL  does  for  windows.  First  is 
the  width  of  the  window  (must  be  32  or  less).  Next 
is  the  depth  from  top  to  bottom  (must  be  24  or 
less).  Lastly  come  the  row  and  column  coordinates 
for  the  upper  left  hand  corner.  All  are  entered  as  a 
string  with  commas  in  between  as  follows: 
xx, xx, xx, xx.  If  a number  is  only  one  digit,  say  2, 
then  type  in  02.  Lines  120,  170  and  210  of  listing 
#1  are  good  examples  of  this.  In  listing  #1  these 
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lines  serve  to  set  up  the  number  of  the  window  (n) 
and  the  window  string  (w$)  in  lieu  of  listing  #2*s 
INPUT  statement.  After  w$(n)  is  set  with  the  right 
parameters  a simple  GOSUB  9000  does  the  rest!  Any 
text  we  want  in  the  window  can  be  done  in  BASIC  as 
usual  such  as  in  listing  #l’s  lines  140,  180,  and 
220.  Line  220  prints  into  the  lower  screen  and  also 
POKEs  DF  SZ  with  zero  and  then  2 as  we  discussed 
previously.  Can’t  remember  where  DF  SZ  is?  Not  to 
worry— I set  a variable  "lower"  equal  to  the 
address. 

I don’t  like  to  keep  track  of  call  addresses, 
either,  so  two  more  variables  are  set  and  ready  from 
line  5:  "store"  and  "renew".  All  we  need  to  do  is 
make  a user  call  such  as  LET  k=USER  store  to  run  the 
LDIR  machine  code  that  stores  the  screen  safely 
away.  Likewise  LET  k=USER  renew  puts  the  stored 

Listing  2. 

130  INPUT  "window  H=  **  ; n : INPUT 

"UINDQU  w , d . r , c " ; w$  cn ) 

1 10  POKE  tower  ,0:  FOP  f =1  TO  76 

: PRINT  " 1234567390" ; : NEXT  f:  P 

PINT  "12345678":  POKE  Lower, 2 
123  LET  k=U5P  store 
130  GO  SUB  9003 

143  IF  INKEY $=""  THEN  GO  TO  143 
150  let  k=usr  renew:  STOP 


original  back  on  the  screen.  See  lines  120  and  150 
of  listing  #2  for  examples. 

We  have  pretty  well  walked  through  both  entire 
programs.  There  is  a loop  in  line  100  of  listing  #1 
that  simply  fills  the  screen,  some  key  checks  in 
lines  150,  190  and  230,  and  a sign-off  message  in 
line  240.  None  of  these  is  essential.  1 am  hoping 
that  this  little  1.7K  program  will  be  a good 
springboard  for  inventiveness.  Machine  code  for  the 
renewing  of  the  screen  is  blinding  fast.  1 intend  to 
whittle  back  on  the  cumbersome  BASIC  slowness  of  the 
window  drawing  with  machine  code,  too,  in  the 
future.  If  anyone  else  desires  tackling  improvements 
in  this  area  I might  suggest  some  good  SWN  reading: 
Ray  Kingsley’s  ROM  calls  in  Sept/Oct  ’84,  P.S. 

Skipper’s  2068  Messages  in  Mar/ Apr  *86,  and  William 
Power’s  M.C.  Print  Statement  in  May/Jun  ’85. 

If  any  of  you  have  suggestions  or  comments,  I would 
love  to  hear  from  you!  Also,  if  you  are  not  up  to 
typing  in  the  long  listings  here,  or  would  like  a 
copy  (on  a new  cassette  with  documentation)  of  the 
UDG  designer  program  that  produced  figures  2 and  3 
just  send  $5  (or  your  own  cassette  and  $3)  to:  Paul 
Bingham,  P.O.  Box  2034,  Mesa,  AZ  85204. 


WRX16  HI-RES  FOR  THE  1000 


By  Wilf  Rigter 

Introduction 

For  several  years,  ZX81/TS1000  owners  have  dreamed 
of  a simple  bit- mapped  high-resolution  system  for 
their  machines.  The  quest  began  with  the  appearance 
of  "software-only"  high -resolution  packages,  which 
offered  an  improvement  over  the  crude  44x64  block 
pixels,  but  left  much  to  be  desired  regarding  pre- 
cision and  ease  of  use. 

Several  manufacturers  came  out  with  hardware  add-ons 
that  provided  true  high  resolution  displays. 

Memotech’s  HRG  modified  the  existing  Sinclair  "cheap 
video"  approach,  and  represented  the  first  viable 
alternative.  Later,  two  different  designs  (John 
Oliger  and  Kolor works)  employed  the  Texas 
Instruments  video  display  processor  to  add  high-res- 
olution color  to  these  machines.  All  of  these 
require  substantial  additional  hardware,  making  them 
relatively  expensive.  Furthermore,  software  support 
for  at  least  one  of  them  (the  Kolorworks)  is  prac- 
tically non-existant. 

More  recently,  Gregory  C.  Harder  discovered  that  the 
TS1500  is  capable  of  true  bit- mapped  displays.  (See 
Sync  Ware  News  #3:4.)  Unfortunately,  we  haven’t  found 
a way  of  making  this  system  work  on  the  ZX81/TS1000. 
Also,  the  inability  to  set  every  eighth  horizontal 
bit  compromised  this  system’s  usefulness  for  some 
applications. 

Finally,  almost  five  years  after  the  introduction  of 
the  ZX81,  a TRUE  bit- mapped  high  resolution  package 
has  been  developed,  using  minimal  additional  hard- 
ware. Would  you  believe  that  with  nothing  more  than 
a CMOS  memory  board  (such  as  a modified  "Hunter" 
board)  you  can  now  have  256x192  bit- mapped  displays? 
Believe  it!  WRX16  HI-RES  is  here!  (WR=Wilf  Rigter, 
"xl6"  is  the  degree  of  resolution  improvement.) 


WRX16  HI-RES  was  developed  by  Wilf  Rigter  with  the 
ZED  Team,  a sub-group  of  the  Vancouver  TS  User 
Group,  consisting  of  Mr.  Rigter,  Dave  Ross  and  James 
Horne.  It  has  been  extensively  tested;  in  fact,  if 
you  bought  "SINC-ARTIST  HR"  from  Weymil  Corp., 
you’ve  already  seen  the  spectacular  displays  that 
this  system  can  give. 

Before  we  get  on  with  the  details,  here  is  a summary 
of  the  advantages  of  this  remarkable  software: 

* 256x176  resolution,  expandable  to  256x206 
(26  lines).  ALL  bits  may  be  set/reset. 

• A single  POKE  instantly  reverses  any  of  the 
32  columns;  a short  machine-code  routine  in- 
stantly reverses  the  entire  screen. 

Software-only  video  reverse! 

• The  high-res  display  file  does  NOT  require 
stop  bytes  at  the  end  of  each  display  line, 
as  does  the  standard  Sinclair  video  or  any 
of  the  other  software-only  hi-res  packages. 

This  considerably  simplifies  bit  computa- 
tions. Furthermore,  you  CANNOT  crash  the 
system  by  POKEing  illegal  codes  into  the 
display  file. 

* Easily  adapted  to  fill  entire  screen  (to  26 
rows),  or  leave  the  bottom  two  rows  avail- 
able for  standard  video  (allowing  INPUT, 
report  codes,  and  BASIC  command  or  program 
line  entry). 

Suddenly,  the  door  is  open  to  all  the  projects  we 
have  so  far  only  dreamed  about;  40+  columns,  "what 
you  see  is  what  you  get"  word  processing,  CAD,  $100 
"MAC-alikes,"  and  on  and  on. 
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The  key  to  the  system  Is  a succinct  76-byte  algor- 
ithm, presented  in  this  article,  which  utilizes  the 
built-in  display  and  memory  refresh  facilities  in  a 
novel  way.  This  routine  creates  the  hi-res  screen, 
which  can  be  POKEd,  scrolled,  inverted  or  blanked 
out  with  all  the  ease  of  a true  bit- mapped  display. 

Copyright  Notice 

Note  that  this  article  and  the  WRX16  HI-RES  core 
routine  are  the  copyrighted  property  of  Wilf  Rigter. 

Except  for  your  own  use,  please  do  not  reproduce  it 
in  any  form  without  written  permission.  If  you  plan 
to  use  this  core  in  software  for  sale  or  other  dis- 
tribution, contact  the  author  for  licensing  arrange- 
ments. Write  to  Wilf  Rigter,  c/o  D.  Ross  Educational 
Electronics,  208-206  East  6th,  Vancouver  BC  Canada. 

[I  should  add  that  Mr.  Rigter  and  the  ZED  Team  are 
presently  polishing  up  other  highly  significant  de- 
velopments for  the  ZX81.  Whether  or  not  these  will 
be  released  for  publication  in  this  magazine  depends 
entirely  on  the  integrity  of  our  readers.  ’Nuff 
said?  -fn] 

Hardware  Requirements 

As  stated,  the  hardware  requirements  for  running 
W RX16-HR  are  minimal.  Most  of  you  already  have  what 
it  takes.  The  CPU  must  be  able  to  activate  all  8 low 
address  lines  during  the  refresh  cycle,  instead  of 
the  conventional  7,  and  8K  of  static  RAM  is  required 
to  store  the  hi-res  display  file. 

Although  most  TSIOOO’s  have  been  supplied  with  a 
suitable  CPU,  some  of  the  ones  we  have  encountered 
have  not.  Suitable  CPU’s  are,  however,  readily 
available  at  low  cost.  You’ll  know  that  you  need  a 
different  Z80A  or  Z80B  if  every  eighth  horizontal 
bit  is  missing. 

The  8K  static  RAM  is  mapped  in  the  8-16K  address 
space  for  simplicity  and  convenience.  Note  that  this 
must  be  STATIC  RAM;  dynamic  RAM  (such  as  used  by  64K 
RAM  packs)  will  not  work.  This  is  because  this  hi- 
res system  relies  on  being  able  to  fetch  the  video 
data  during  refresh  time.  On  dynamic  RAMs  this  is 
not  possible;  you  must  therefore  arrange  for  8K  of 
static  RAM  in  the  8-16 K region. 

The  NVM  circuit  published  in  the  last  issue  of  SWN 
will  work  with  no  changes  whatever.  So  if  you’ve  put 
off  building  this,  here’s  a good  reason  to  get  out 
your  soldering  iron  and  go  to  it. 

Another  possibility  is  the  ubiquitous  "Hunter"  NVM 
board.  However,  you  will  have  to  make  a slight  mod- 
ification to  make  this  work  properly.  The  Hunter 
board  uses  the  RD  NOT  signal  to  control  the  OE  NOT 
pin  of  the  CMOS  RAM  chips.  As  a result,  the  contents 
of  RAM  are  gated  onto  the  data  bus  only  when  RD  NOT 
goes  active  low.  However,  during  refresh  time,  the 
CPU  holds  RD  NOT  high,  making  it  necessary  to  OR  the 
RD  NOT  and  RFSH  NOT  signals. 

Such  an  OR  circuit  can  consist  of  nothing  more  than 
a IN 4148  diode  and  a 4.7K  resistor.  Cut  the  trace 
connecting  RD  NOT  (edge  connector  pin  16 A)  to  the 
RAM  pins  20.  Bridge  this  gap  with  the  4.7K  resistor. 
Connect  the  diode  with  its  cathode  towards  RFSH  NOT 
(edge  connector  pin  23 A),  and  the  anode  to  the  RAM 
OE  NOT  pins  (pin  20;  the  RAM  end  of  the  new 
resistor). 

The  only  known  software  which  is  adversely  affected 
by  this  modification  is  TS1500  HI*RES  and  packages 
(such  as  DUNGEON  OF  YMIR  VI)  which  utilize  this.  If 


you  plan  to  run  this  type  of  software,  install  a 
switch  in  series  with  the  diode  so  that  the  modifi- 
cation can  be  switched  out. 

Also  see  the  "Support"  section  of  this  article  for 
information  on  static  RAM  parts  kits,  if  you  want  to 
"roll  your  own"  but  don’t  care  to  hassle  with  parts 
acquisition. 

Finally,  a functional  equivalent  to  the  "Hunter" 
board,  with  additional  features,  is  being  jointly 
developed  by  Larken  Electronics  and  Silicon  Mountain 
Computers.  This  will  support  both  types  of  hi-res 
software  with  no  changes.  Stay  tuned  to  SWN  "For 
Your  Support"  for  availability. 

The  only  other  hardware  requirement  is  that  the  48- 
64K  region  NOT  be  decoded.  This  precludes  the  use  of 
64 K RAM  packs,  since  this  hi-res  system  relies  on 
the  48-64K  "echo"  of  the  16-32K  region.  It  is  con- 
ceivable that  this  restriction  will  be  overcome,  but 
at  this  writing  a satisfactory  fix  has  not  been 
worked  out. 

And  that’s  it!  Nothing  more  is  required,  except  of 
course  the  all-important  software.  In  fact,  the 
principles  of  the  system  can  be  demonstrated  with  a 
completely  stock,  2K  TS1000,  albeit  with  reduced 
display  size,  minimal  user  friendliness,  and  some 
fiddling  with  the  software. 

TS1500:  These  routines  will  only  work  on  the  TS1500 
if  a 16K  RAM  pack  is  installed  in  addition  to  the 
CMOS  RAM.  Why  this  is,  is  unclear  at  this  writing. 


The  Core  Routines 

Once  you  have  your  hardware  properly  set  up,  enter 
the  core  routine.  Start  with  a 1 REM  statement,  128 
bytes  long.  (Type  1 REM  followed  by  128  X's  or  other 
character.)  While  you're  at  it,  enter  a line  2 REM 
of  104  bytes,  and  a line  3 REM  of  148  bytes,  which 
we'll  fill  later.  Then  enter  the  loader  program  of 
(lines  9000-9991  of  Listing  4),  and  RUN  9000.  Enter 
16514  for  "START"  and  128  for  "BYTES."  Now  enter  the 
decimal  values  of  Table  1,  or  use  an  assembler  or 
Hot  Z to  enter  the  hexcode  / mnemonics  of  Listing  1. 


TABLE  Is  WRX1 6 CORE  (DECIMAL) 


START?  16514  BYTES?  128 
000  s 237  s 079 :080:000:000:0088008s 
000  s 800  s 000  s 000  s 000  s 000  s 000  s 000  s 
000 s 000 1000  s 000  s 000  s 000  s 000  s 000  s 

000s 000s 000S 000S 000s 000S 000S 000s 

000  s 000  s 000  s 195s 191 S064s243s062s 
007s 071 s000s816s 253 s 1 98 s 238 s 060  s 
032s 253 s 006s 176 s0 1 7s 032s 000  s 033 3 
000 s 832 s 1 95s 198S064 8000s 800s 085s 
202  s 205  s 064  3 025  s 1 24  s 237  s 071 s 1 25  s 
195  s 131  si 92s042s 01 2 :064:0428012s 
064s042s01 2:064 : 000 : 0 1 7 s 247 : 130s 
025:062:030:237:071 :062:245:081 s 
007:082:205:181 :002s 205s 146:002s 
205:032:002:221 :833s 168:064: 195s 
164:002:221 :033s 168:064:201 :062: 
030:237:871:221 8033:129:002:201 s 
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LISTING  1:  WRX16  CORE 


4082  00 

1REM°N0P 

4083  ED4F 

DUMY  LD  R,A 

: Refresh  Counter  LSB 

4085  00 

NOP 

: Collapsed  D FILE 

4086  00 

NOP 

(32  locations) 

4087  00 

NOP 

Executed  each 

4088  00 

NOP 

HLINE,  controls 

4089  00 

NOP 

32  columns. 

408A  00 

NOP 

N 0 RM=00, 

408B  00 

NOP 

IN  VERT=80 

408C  00 

NOP 

408D  00 

NOP 

408E  00 
J08FJlii— 

N1QP 

'«u 

tnr 

NOP 

NOP 

409B 

00 

NOP 

40  9C 

00 

NOP 

409D 

00 

NOP 

409E 

00 

NOP 

409F 

00 

NOP 

40  AO 

00 

NOP 

40A1 

00 

NOP 

40A2 

00 

NOP 

40A3 

00 

NOP 

40A4 

00 

NOP 

40A5 

C3BF40 

JP  DP-1 

:Jump  to  Display  Loop 

40A8 

F3 

DPLY  DI 

:PART  1:  Disable  Int. 

40A9 

3E07 

LD  A, 07 

sHoriz.  sync  delay  to 

40AB 

47 

LD  B,A 

: Center  screen 

40  AC 

00 

DP-0  NOP 

: (coarse) 

40  AD 

10FD 

DJNZ  DP-0 

4 OAF 

C6EE 

ADD  A, EE 

:(fine) 

40B1 

3C 

DP-A  INC  A 

40B2  20FD  JR  NZ  DP-A 

40B4  06B0  LD  B,BO 

40B6  112000  LD  DE,0020 

40B9  210020  LD  HL,2000 

40BC  C3C640  JP  DP-2 

40BF  00  DP-1  NOP 

40C0  00  NOP 

40C1  05  DEC  B 

40C2  CACD40  JP  Z DP -3 

40C5  19  ADD  HL,DE 

40C6  7C  DP-2  LD  A,H 

40C7  ED47  LD  I, A 

40C9  7D  LD  A,L 

4 OCA  C383C0  JP  C083 

40CD  2A0C40  DP-3°LD  HL, (DFIL) 

40D0  2A0C40  LD  HL, (DFIL) 

40D3  2A0C40  LD  HL, (DFIL) 

40D6  00  NOP 

40D7  11F782  LD  DE,82F7 

40DA  19  ADD  HL,DE 

40DB  3E1E  LD  A, IE 

4 ODD  ED47  LD  I, A 

40DF  3EF5  LD  A,F5 

40E1  010702  LD  BC,0207 

40E4  CDB502  CALL  02B5 

40E7  CD9202  CALL  0292 

40EA  CD2002  CALL  0220 

40ED  DD21A840  LD  IX,DPLY 

40F1  C3A402  JP  02A4 

40F4  DD21A840  HRES  LD  IX,DPLY 
40 F8  C9  RET 

40F9  3E1E  NRML  LD  A, IE 

40FB  ED47  LD  I ,A 

40FD  DD218102  LD  IX,ZXIX 

4101  C9  RET 

4102  76  HALT 


:Set  HIRES  scrn  size 
:Horiz  line  length 
: HI  RES  screen  location 
.•Jump  to  display  loop 
.•PART  2 

.•Delay  8 T-states 
sDec.  line  counter 
:If  finished,  jump. 
sElse  calc,  next  line 
:Load  MSB  of  next 
line  start  addr. 

:Get  LSB  ready 
:PA RT  3:  Jump  to  ECHO 
sPART  4 
:D_FILE  pointer 
: Delay  36 
T-states 

:Last  line  offset 
:Last  line  address 
: Restore  Sine  O/S 
:font  pointer 
:Sinc  O/S  needs  A=F5 
si  row/8  high 
sCall  ROM 
: routines  to  display 
sthe  last  rows 
; Point  back,  then 
sJump  to  Sine  O/S 
sLoad  JP  vector 
:to  HIRES  routine 
sLoad  font  table  pntr. 
sand  set  JP  vector 
sto  point  to  SOS 
s display  routine. 


Theory 

This  section  is  not  essential  reading  if  you  only 
want  to  experiment  with  the  WRX16  HI-RES  core.  How- 
ever, we  recommend  that  you  do  read  it  through  at 
least  once.  Even  if  you  don’t  understand  it  all  at 
first,  you  will  probably  pick  up  quite  a bit  of  in- 
formation about  this  unique  type  of  hi-res  specif- 
ically, and  about  "cheap  video"  in  general. 

Turn  It  On 

Entry  from  the  Sinclair  Operating  System  (SOS)  is 
made  by  first  calling  "HRES",  a short  routine 
located  at  40F4h.  There,  the  IX  register  is  loaded 
with  a jump  vector  pointing  to  "DPLY",  the  entry 
point  located  at  40A8h. 

When  the  SOS  next  encounters  the  JP  (IX)  instruc- 
tion, program  control  is  transferred  to  the  HIRES 
routine  instead  of  the  normal  one  residing  in  ROM. 

This  occurs  60  times  a second  during  the  NMI  service 
routine. 

Main  Loop 

Part  1 of  the  Hi- Res  routine  initiates  the  main 
display  loop.  The  maskable  interrupt  is  disabled, 
the  hi-res  screen  is  centered,  its  vertical  and 
horizontal  size  is  set,  and  HL  is  loaded  as  a poin- 
ter to  the  start  address  of  a 6K  memory  block  re- 
served for  the  hi-res  display  file. 

Parts  2 and  3 make  up  the  main  display  loop.  Timing 
is  critical  because  the  routine  must  trigger  the  ULA 


GREAT  BOOKS 
FOR  YOUR  SINCLAIR 

OFFICIAL  2068  TECHNICAL  MANUAL $25.00 

CONTROL  THINGS  with  your 

Timex/Sinclair  by  R.L  Swarts $5.00 

ZX81:  Programming  for  Real  Applications 
by  Randle  Hurley $6.00 

Both  “CONTROL  THINGS”  and  “ZX81” $10.00 

Build  a Microcomputer  - Controlled  NEW! 
Robot  by  B.C.  Taylor $1 7.00 

The  Best  of  TIME  DESIGNS  Volume  1 $12.00 

Taking  the  Quantum  Leap  Available  February  1987 
by  Mike  de  Sosa $26.00 

WE  PAY  THE  POSTAGE 
ON  ALL  ORDERS! 


Note:  4%  charge  added  to  all  Credit  Card  Orders. 


Send  Name,  Address,  along  with  check/MO  OR  Credit  Card  NoVExp.  date  to: 

TIME  DESIGNS  MAGAZINE  COMPANY 

29722  Hult  Rd„  Colton,  OR  97017  (503)  824-2658 
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at  precise  intervals  so  that  it,  in  turn,  will 
produce  line  synchronization  signals  at  appropriate 
intervals. 

Part  2 keeps  track  of  how  many  lines  are  left  to  do. 

If  the  display  has  been  completed,  a jump  is  made  to 
Part  4,  the  Exit  routine.  Otherwise,  the  various 
registers  are  updated.  The  line  start  pointer  is  in- 
cremented by  32d,  and  the  line  count  register  is 
decremented  by  one.  Finally,  the  start  address  of 
the  next  display  line  is  loaded  into  the  I and  R 
registers. 

In  Part  3,  a jump  is  made  to  the  high- memory  echo  of 
a 32  character  dummy  display  file,  DU  MY.  There,  the 
display  facilities  of  the  ULA  are  triggered  and  uti- 
lized as  explained  below.  Refer  to  Mike  Lord’s  "The 
Explorer’s  Guide..."  for  background  on  how  the  ULA 
operates. 

Is  The  ULA  is  triggered  into  the  display  mode  when- 
ever address  line  A 15  is  high  during  an  ins- 
truction fetch  cycle  (Ml).  The  HI-RES  software 
achieves  this  by  way  of  a jump  vector  pointing  to 
ECHO,  the  high  memory  phantom  of  DUMY.  This 
method  is  similar  to  the  one  used  in  the  SOS  dis- 
play routine. 

2;  On  being  triggered,  the  hardware  swings  into 
action.  It  generates  a line  sync  pulse,  and  pulls 
the  data  lines  low  on  each  Ml  cycle.  The  micro- 
processor "sees”  the  OOh  NOP  code,  so  for  4 T- 
states  does  nothing  except  feed  the  R and  I reg- 
isters* contents  onto  the  address  lines  during 
the  refresh  cycle.  It  then  increments  the  R reg- 
ister, and  fetches  the  next  dummy  instruction. 

This  process  is  repeated  to  the  end  of  DUMY, 
where  a jump  instruction  transfers  control  back 
to  Part  2,  completing  the  loop.  This  jump  is  made 
to  its  true  address,  so  line  A 15  will  no  longer 
go  high,  temporarily  suspending  the  ULA’s  display 
activities.  This  process  is  repeated  until  all 
lines  have  been  displayed. 

3:  When  in  the  display  mode,  the  ULA  forces  levels 
onto  the  address  lines  which  normally  address  the 
font  tables  resident  in  ROM.  Since  the  HI-RES 
screen  is  mapped  elsewhere  in  memory,  this  action 
has  no  effect. 

Instead,  with  the  contents  of  the  I and  R reg- 
isters applied  to  the  address  lines,  memory  loc- 
ations in  the  HI-RES  display  file  are  accessed, 
and  their  contents  applied  to  the  data  bus. 

4:  During  the  refresh  cycle,  the  ULA  loads  these 
bytes  into  an  internal  register.  From  there  there 
are  sent  serially  to  the  modulator  for  display. 

5:  During  the  Ml  cycle,  the  ULA  monitors  data  line 
D7  and  if  high,  inverts  the  video  data.  For  a 
normal  display,  characters  of  the  dummy  display 
file  are  set  to  OOh.  When  set  to  80h,  they  serve 
to  invert  the  display  column  by  column. 

As  mentioned  above,  Part  4 of  the  routine  is  to 
return  to  the  SOS  after  completing  some  house- 
keeping chores. 

S.O.S.  Return 

To  restore  the  normal  display  facilities,  "NRML"  (a 
short  routine  located  at  40F9h)  is  called  to  restore 
the  IX  register  to  point  to  the  usual  ROM-based  SOS 
display  routine.  The  I register  is  also  restored  so 
that  it  points  to  the  proper  font  table  base  address 
in  ROM. 


Modifications 

As  shown,  the  core  routine  gives  176  HI-RES  lines, 
leaving  the  bottom  two  rows  (16  lines)  open  for  the 
usual  error  reports  and  INPUT  lines.  To  change  the 
number  of  HI-RES  lines  to,  say  192,  change  the 
command  at  40B4h  to  LD  B,C0.  Note  that  this  will 
still  keep  the  two  input  lines  at  the  bottom,  for  a 
total  of  26  lines.  This  might  cause  some  TV’s  or 
monitors  to  spill  off  the  top  or  bottom,  and 
furthermore  slows  down  machine  operation  slightly 
because  of  the  additional  lines  displayed  during  the 
interrupt. 

If  you  don’t  need  the  standard-video  input  rows  at 
the  bottom,  replace  the  CALL  02 B 5 at  40E4h  with  NOPs 
(00).  In  principle,  you  could  increase  the  number  of 
HI-RES  lines  to  206,  with  LD  B,D0  at  40B4h. 

Making  these  or  other  changes  might  mess  up  the 
timing  enough  to  visibly  displace  the  HI-RES  screen. 

You  can  trim  this  with  the  commands  at  40A9h 
("coarse")  and  40AFh  ("fine"). 

Some  Service  Routines 

Now  that  you  have  the  core  routine  installed,  how 
can  you  use  it?  In  principle,  at  least,  anything  you 
could  wish  to  do  could  be  accomplished  using  BASIC. 

For  example,  to  reverse  a single  column,  POKE 
(16517+N ),128  where  N is  the  column  0-31.  To  restore 
it  to  normal,  POKE  it  back  to  zero.  Similarly,  you 
can  POKE  anywhere  in  the  HI-RES  display  file  to  fill 
any  desired  byte  (row  of  8 pixels)  with  the  desired 
pattern. 

Other  operations  however,  such  as  clearing  the 
screen,  printing  and  plotting,  would  be  painfully 
slow  in  BASIC.  Such  jobs  require  machine-code 
routines  to  be  useful.  Listing  2 shows  a few 
rudimentary  routines  (by  fn)  to  CLS,  PLOT,  UN  PLOT 
and  REVERSE.  Use  the  loader  (ST  A RT=16648,  BYTES=104) 
to  enter  the  values  of  Table  2 into  your  2 REM 
statement.  To  use  PLOT  or  UNPLOT,  first  POKE  16438 
with  the  desired  X value  (0-255)  and  16439  with  the 
Y value  (0-176,  or  higher  if  the  core  was  suitably 
modified.)  Though  this  is  a very  "bare-bones" 
operating  system,  it  is  capable  of  neat  displays,  as 
Paul  Bingham’s  "CRATER"  program  in  Listing  4 
demonstrates. 


TABLE  2 s SERVICE  ROUTINES  ;<  DEC . > 


START?  16648  BYTES?  104 
833:000:032:058:181:064:031:031: 
031  : 071  :01  4:000 -.054:000:011  :084: 
093:019:237: 176:201 : 033 : 1 33 : 064 : 
001 : 032: 000 : 1 26 : 1 98 : 1 28 : 1 1 9 : 024 : 
237 : 253 : 203 : 059 : 21 4 : 024 : 004 : 253 : 
203:059:150: 237 : 075 : 054 : 064 : 058 : 
181 : 064: 061 : 1 44 : 21 8 : 1 73 : 0 1 4 : 087 : 
089:203:058:203:027:203:058:203: 
027:203:058:203:027:033:000 :032: 
025:086:121 : 230 : 007 : 060 : 00 1 :000 : 
008:203:002:203:017:061 : 032: 01  2: 
253:203:059:086:040:004:203:193: 
024:002:203:129:016:  235  -.113:201: 
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LISTING  2:  SERVICE  ROUTINES 


4108 

210020 

CLS- 

°LD  HL , 2000 

; Start  of  HR  D_File 

41  OB 

3AB540 

LD  A, (40B5 ) 

:#  of  lines? 

410E 

IF 

RRA 

sCompute  # of  bytes 

410F 

IF 

RRA 

by  mult.  A 

4110 

IF 

RRA 

by  32, 

4111 

47 

LD  B,A 

and  transfer 

4112 

0E00 

LD  C,00 

to  BC. 

4114 

3600 

LD  (HL) , 00 

: Clear  first  byte 

4116 

0B 

DEC  BC 

:One  less  to  fill 

4117 

54 

LD  D,H 

:Tranfer 

4118 

5D 

LD  E,L 

to  DE 

4119 

13 

INC  DE 

;Next  location 

411A 

EDB0 

LDIR 

: Fill  entire  D__File 

4 11C 

C9 

RET 

sthen  return. 

411D 

218540 

RVRS 

LD  HL ,4085 

: Start  of  dummy  DF 

4120 

012000 

LD  BC, 0020 

:#  of  bytes 

4123 

7E 

LD  A , ( HL ) 

:get  first  byte 

4124 

C680 

ADD  A, 80 

: complement  bit  7 

4126 

77 

LD  (HL ) ,A 

:and  put  it  back 

4127 

18ED 

JR  4116 

:then  fill  the  rest. 

4129 

FDCB3BD6 

PLOT 

SET  2 , (CDFG) 

sSet  flag  for  PLOT 

412D 

1804 

JR  PLT* 

i Go  to  PLT*  routine 

412F 

FDCB3B96 

UNPL 

RES  2, (CDFG) 

i Set  flag  for  UN  PLOT 

4133 

ED4B3640 

PLT* 

LD  BC , ( COOR ) 

:Get  coords,  in  BC 

4137 

3AB540 

PLBC 

LD  A, ( 40B5 ) 

:How  many  lines? 

413A 

3D 

DEC  A 

:Max.  vert.  = 1 less 

413B 

90 

SUB  B 

: Invert  vert,  axis 

413C 

DAAD0E 

JP  C 0EAD 

: Overrange  - error. 

The  last  routine  (Listing  3)  is  a machine-code 
"Mandala"  program  to  demonstrate  the  kind  of  speed 
that  can  be  achieved  using  machine  code  PLOT  and 
UNPLOT.  Use  the  loader  (ST A RT=16758,  BYTES=148)  to 
input  the  values  of  Table  3 into  your  3 REM 
statement. 

Finally,  enter  the  rest  of  the  BASIC  DEMO  lines  of 
listing  4.  Run  the  program.  Briefly  touching  a key 
during  the  Mandala  portion  reverses  the  screen. 

Press  BREAK  to  exit,  then  CO  NT  to  run  the  Crater 
portion.  It  pauses  after  every  line  so  you  can  see 
how  it’s  progressing.  Pretty  neat,  eh  what? 

Support 

Support  for  WRX16  HI- RES  is  available  from  D.  Ross 
Educational  Electronics,  [see  address  in  the 
" Copyright n section,  or  call  (604)  874-1756].  The 
ZED  Group  and  D.R.E.E.  are  preparing  RESPAK  1 and 


413F 

57 

GADR  LD  D,A 

i Get  address,  Y val.  in  D 

4140 

59 

LD  E,C 

:X  val.  in  E 

4141 

CB3A 

SRL  D 

:Then  divide 

4143 

CB1B 

RR  E 

:by  8 

4145 

CB3A 

SRL  D 

to  get 

4147 

CB1B 

RR  E 

offset 

4149 

CB3A 

SRL  D 

in  DE 

414B 

CB1B 

RR  E 

414D 

210020 

LD  HL , 2000 

:get  base  address 

4150 

19 

ADD  HL,DE 

:and  add  offset. 

4151 

56 

LD  D, (HL ) 

sGet  byte  at  addr. 

4152 

79 

LD  A,C 

: Which  bit?  get  X val. 

4153 

E607 

AND  07 

: reduce  mod  8 

4155 

3C 

INC  A 

;and  increment 

4156 

010008 

LD  BC, 0800 

:B=8  bits,  clear  C 

4159 

CB02 

BTLP  RLC  D 

:rotate  byte 

415B 

CB11 

RL  C 

sinto  C 

415D 

3D 

DEC  A 

: Count  down  bit 

415E 

200C 

JR  NZ  NXBT 

: until  desired  bit  reached. 

4160 

FDCB3B56 

BIT  2, (CDFG) 

: Check  flag 

4164 

2804 

JR  Z RSBT 

:for  Plot/Unplot 

4166 

CBC1 

STBT  SET  0,C 

:Set  the  bit 

4168 

1802 

JR  NXBT 

:and  keep  rotating 

416A 

CB81 

RSBT  RES  0,C 

:or  reset  bit 

416C 

10EB 

NXBT  DJNZ  BTLP 

:and  keep  rotating 

416E 

71 

LD  ( HL ) , C 

: Replace  modified  byte 

416F 

C9 

RET 

:and  return. 

RESPAK  2 starter-kits  to  make  it  easy  for  non- 
hackers to  get  going.  Dave  Ross  has  been  involved 
with  development  from  the  start,  and  intends  to 
stock  the  required  kits,  and  later  assembled  units 
with  additional  refinements  including  bank-switched 
memory.  Also  contact  D.R.E.E.  if  you  develop 
interesting  applications  using  this  system. 

Conclusion 

We  believe  that  the  WRX16  HI-RES  system  removes  the 
final  obstacle  to  a more  widespread  acceptance  of 
the  TS1000.  Dave,  Jim  Horne  and  myself  are  committed 
to  developing  this  to  the  fullest,  and  will  continue 
to  work  on  user  software  and  hardware  enhancements. 
"In  the  wings"  are  at  least  one  comprehensive 
Extended  BASIC  utility.  Options  will  include  easy 
plot,  unplot  and  complement  pixels;  DRAW  lines, 
circles,  and  other  shapes;  sprites;  smooth  (bit- 


4176 

CDF440 

°CALL  HRES 

419C  67 

LISTING  3:  HI 
LD  H,A 

4179 

CD0841 

CALL  CLS- 

419D  7D 

LD  A,  L 

417C 

CDBB02 

CALL  KEYN 

419E  90 

SUB  B 

417F 

2C 

INC  L 

419F  3001 

JR  NC  41A2 

4180 

C41D41 

CALL  NZ  RVRS 

41A1  25 

DEC  H 

4183 

114B00 

LD  DE, 004B 

41A2  6F 

LD  L,A 

4186 

ED4B3240 

LD  BC, ( SEED) 

41A3  2B 

DEC  HL 

418A 

03 

INC  BC 

41A4  223240 

LD  (SEED) ,HL 

418B 

62 

LD  H,D 

41A7  CB3D 

SRL  L 

418C 

68 

LD  L,B 

41A9  4D 

LD  C,L 

418D 

CD0913 

CALL  1309 

41AA  7C 

LD  A,H 

4190 

E5 

PUSH  HL 

41AB  0655 

LD  B,55 

4191 

62 

LD  H,D 

41AD  B8 

CP  B 

4192 

69 

LD  L,C 

41AE  3803 

JR  C 41B3 

4193 

CD0913 

CALL  1309 

41B0  90 

SUB  B 

4196 

Cl 

POP  BC 

41B1  18FA 

JR  41AD 

4197 

7C 

LD  A,H 

41B3  47 

LD  B,A 

4198 

81 

ADD  A,C 

41B4  FDCB3B56 

BIT  2, (CDFG) 

4199 

3001 

JR  NC  41 9C 

41B8  2806 

JR  Z 41C0 

419B 

04 

INC  B 

41BA  FDCB3B96 

RES  2, (CDFG) 

•RES  MANDALA 

, . t 

41BE  1804 

JR  41C4 

41EE  CD460F 

CALL  BREK 

4 ICO  FDCB3BD6 

SET  2, (CDFG) 

41F1  D2F940 

JP  NC  NRML 

41C4  C5 

PUSH  BC 

41F4  1886 

JR  417C 

41C5  CDF641 

CALL  41F6 

41F6  3E80 

LD  A,  80 

41C8  CD0042 

CALL  4200 

41F8  81 

ADD  A,C 

41CB  CD3741 

CALL  PLBC 

41F9  4F 

LD  C,A 

4 ICE  Cl 

POP  BC 

41FA  C9 

RET 

41CF  C5 

PUSH  BC 

41FB  3E80 

LD  A,  80 

4 1D0  CDF641 

CALL  41F6 

41FD  91 

SUB  C 

41D3  CD0542 

CALL  4205 

41FE  18F9 

JR  41F9 

41D6  CD3741 

CALL  PLBC 

4200  3E58 

LD  A, 58 

41D9  Cl 

POP  BC 

4202  80 

ADD  A,B 

4 IDA  C5 

PUSH  BC 

4203  47 

LD  B,A 

41DB  CDFB41 

CALL  41FB 

4204  C9 

RET 

4 IDE  CD0042 

CALL  4200 

4205  3E58 

LD  A, 58 

41E1  CD3741 

CALL  PLBC 

4207  90 

SUB  B 

41E4  Cl 

POP  BC 

4208  18F9 

JR  4203 

41E5  CDFB41 

°CALL  41FB 

41E8  CD0542 

CALL  4205 

41 EB  CD3741 

CALL  PLBC 
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wise)  scrolling;  upper/lower  case,  mixed 
text/graphics,  and  a form  of  windowing,  to  mention 
but  a few  possibilities.  The  goal  is  to  provide  a 
complete  system  that  outperforms  similar  hardware- 
based  schemes  at  a fraction  of  the  price. 


Acknowledgements  also  to  Ray  Lanoville  for 
assistance  In  preparing  this  article  from  my  field 
notes.  Ray  is  interested  in  the  educational 
potentials  of  the  TS1000,  and  will  be  contributing 
to  the  team  effort  in  that  area. 


TABLE  3s  HI -RES  MANDALA  (DEC.) 


START?  16758  BYTES?  148 
205:244:064:205:008:065:205: 187: 
002:044: 196:029:065:017:075:000 : 
237:075:050 : 064 : 003 : 098 : 104:205: 


LISTING  4:  WRX16  HI-RES  DHVK) 

5®LET  HR =16626 
7 LET  HR ML  =16633 
10  LET  CL 5 =16646 
23  LET  RURS =16669 
33  LET  PLOT =16681 
43  LET  UNPL =16687 
53  LET  XP =16438 
63  LET 
33  REH  _ 

35  SLOW 
133  R PHD 
193  REH  1 
233  FAST 
213  RAND  USR  CL 5 

215  IF  PEEK  16517 <>123  THEN  RAN 
D USR  RURS 
223  LET  9 =-4 

233  FOR  A =23  TO  -16  STEP  -1.6 
243  IF  A >5  THEN  LET  9=0-1. 7 
253  IF  A <5  THEN  LET  0=0  + 1 
263  FOR  B=G  TO  15  oTEP  .2 
273  LET  Z=C0S  ( . 36+  ( A+A+B+B ) ) 
293  LET  H=S0-A+ . 3-B-Z 
333  LET  X=  *:  124-633*  ( (-A+.4+B*.  9 
5 /H)  ) 

313  IF  X >255  OR  X<3  THEN  GOTO  3 
73 


009:019:229:098:105:205:009:019: 
193:124:129:048:001 : 004 : 1 03 : 1 25 : 
144:048:001 :037: 1 1 1 : 043: 034: 050 : 
064:203:061 : 077 : 1 24 : 006 : 085 : 1 84 : 
056:003:144:024:250:071 : 253: 203: 
059:086:040 : 006 : 253 : 203 : 059 : 150 : 
024:004: 253 : 20  3 : 0 59 : 2 1 4 : 1 97 : 205 : 
246:065:205:000 : 066 : 205 : 055 : 065 : 
193:197:205:246:065:205:005:066: 
205 : 055 : 065 : 1 93 : 1 97 : 205 : 251:065: 
205:000 : 066: 205: 055: 065: 193:205: 
251 : 065: 205: 005: 066: 205: 055: 065: 
205:070:015:210: 249 :064:024:134s 
0 62 : 1 28 : 1 29 : 0 79 : 20 1 : 062 : 1 28 : 1 45 : 
024:249:062:088:128:071 :201 :062: 
088:144:024:249: 


+.7) /Hi 

333  IF  Y >175  OR  Y<3  THEN  GOTO  3 
73 

343  POKE  XP , X 
353  POKE  YP.Y 
363  RAND  USR  PLOT 
373  NEXT  B 
363  GOSUB  533 
365  FAST 
393  NEXT  A 
433  GOSUB  533 

413  IF  INKEY  $ = ,!  “ THEN  GOTO  413 
423  RAND  USR  NR ML 
433  STOP 
533  SLOU 
513  RAND  USR  HR 
523  FOR  N = 1 TO  53 
538  NEXT  N 
543  RETURN 
9333  REH  5 

9813  FAST 
9823  CL 5 

9838  PRINT  "START?  " ; 

9848  INPUT  ST 

9358  PRINT  ST, "BYTES?  " ; 

9863  INPUT  BY 

9373  PRINT  BY 

9838  FOR  N =ST  TO  ST+BY-1 

9398  INPUT  U 

9138  POKE  N , U 

9118  PRINT  ( 5TR$  (U+1000) ) (2  TO 

) ; " : *• ; 

9120  NEXT  N 

9990  SAUE  "HRDEHg" 

9991  RUN 


Now  Available!  “THE  BEST  OF  SUM,  PART  II” 


Over  60  pages  of  program  listings,  reviews,  hard- 
ware projects,  hints  and  tips,  and  articles.  Covers 
TS-1000,  TS-2068,  and  QL.  All  are  reprints  from 
the  last  year  of  SUM  plus  a few  that  didn't  make  it 
into  print  before  now. 

Articles  include  Building  an  EPROM  Program- 
mer, Sprites  on  the  2068,  Adding  RGB  to  2068,  QL 
Word  Processing,  What's  Available  for  TS-1000, 
and  much  more.  Does  overlap  the  "Special  Issues" 
advertised  to  the  right 


The  original  “THE  BEST  OF  SUM”  is  now  in  its 
2nd  printing.  112  pages  of  articles  going  all  the 
way  back  to  the  beginning  of  SUM  — 3 years 
worth! 

*11.95  postpaid 

QL  Special  Issue  (12/85)  — s3.95  postpaid. 
TS-1000  Special  Issue  (5/86)  — l3 .95  postpaid. 

Everything!  $20.00  postpaid 


*6.95  postpaid 

OOie  fe  SOFTWARE  P.O.  Box  1 4655  - Gainesville,  FL  32604  904/462-1086  (6  pm  • 9 pm  EDT) 


IS 


2068  VARIABLE  SAVE  TRICK 


By  Robert  C.  Fischer 


Getting  right  to  the  point  of  this  article,  why 
would  anyone  want  to  save  only  the  variables  from  a 
program?  There  are  two  reasons.  First,  some  programs 
are  used  to  store  various  sets  of  data.  For  example, 

I use  PRO/FILE  to  keep  track  of  student  information, 
music  lists,  customers,  and  other  things.  I could  not 
store  all  this  at  one  time  in  the  computer.  If  I had 
to  load  the  program  with  the  data  in  each  case,  I 
would  waste  considerable  time.  A second  reason  would 
be  to  use  a different  program  to  operate  on  the  same 
data  as  another  program  originally  created.  Again, 
using  PRO/FILE  as  an  example,  you  may  want  to  load 
your  PRO/FILE  data  into  another  program  which  would 
do  a search  and  replace  operation  or  other  functions. 

Itfs  true  that  the  2068  permits  you  to  save 
dimensioned  data,  but  you  may  have  other  variables 
which  serve  as  pointers  that  need  transferring  as 
well. 

To  save  the  variables  without  the  program,  you  could 
DELETE  0,9999  before  saving,  but  the  SAVE  and  VERIFY 
commands  would  have  to  be  entered  directly.  Also,  you 
may  still  need  to  keep  the  program  in  the  computer 
for  further  use.  After  a lot  of  experimenting,  I may 
have  a solution.  The  "may  have"  is  because  the 
process  alters  the  system  variables  and,  although  it 
seems  fine  so  far,  I prefer  to  test  it  much  more 
before  using  it  with  complete  confidence. 

The  process  simply  involves  fooling  the  computer 
about  where  to  start  saving.  Since  we  only  want  the 
variables,  we  need  to  make  the  computer  think  that 
the  start  of  the  variables  is  the  start  of  the  entire 
program. 

The  computer  stores  things  in  certain  places  or  in  a 
certain  order.  For  instance,  the  ROM  is  always  found 
from  address  0 to  16383.  Next  comes  the  display  and 
attribute  files  followed  by  the  printer  buffer. 

Eventually  we  come  to  the  start  of  the  BASIC  program 
which  on  the  2068  is  normally  found  at  address  26710, 
but  it  can  be  moved.  Right  after  the  BASIC  ends,  we 
find  the  start  of  the  variables.  The  exact  starting 
point  varies  according  to  the  size  of  the  BASIC 
program.  Actually,  when  you  first  turn  on  the 
computer,  the  variables  and  the  program  start  at  the 
same  place  because  no  program  exists. 

The  system  variables  help  the  computer  keep  track  of 
these  things.  System  variables  are  not  like  the 
variables  we  use  (like  LET  X=10).  Instead  they  are 
special  storage  addresses  which  tell  the  computer 
where  to  find  things  or  to  do  certain  things  (like 
add  a key  click) 


5 PRINT  RT  10,3; "PRESS  R KEY 
TO  STRRT  TEST'5  : PRUSE  0:  CLERR 

10  LET  R = 1 : LET  B=2 

11  LET  R$  = “R!:  : LET  B$="B" 

12  DIM  X (23  : LET  X (1) =1000  LE 

T X (2) =2000 

13  DIM  Z $ ( 2 , 3 3 : LET  Z$(13=“R6C 

" : LET  Z$ (23  ="DEF" 

100  PR INT  • - R . B . fi  $ . B $ . X ( 1 3 , y ( 2 i 
,Z$  (13  ,Z$ (2  3 

200  PRINT  ,!  PRESS  TO  CONTINUE 
UITH  SPUING” : PRUSE  0:  BEEP  .1.3 

0 

1000  POKE  23635. PEEK  23627  POKE 
23636. PEEK  2 3 62 S 
1010  SRUE  "URRIRBLES" : PRINT  ' ' T 

HB  3; "REWIND  TO  UERIFY" : UERIFY 

"URRIRBLES" 

2000  POKE  23635 , 36 : POKE  23636 . 1 
04 


URLUES  5RUED"  "HERE  RRE  NEU  URL 
UES : ” : LET  R=-l : LET  5=-2:  LET  R 

$ = ,,a”:  LET  B $ = ” b “ : DIM  X (23  : LET 

X (13 =-1000.  LET  X (23 =-2000:  DIM 

Z $ ( 2 , 3 3 : LET  Z$ ( 13  ="a be " LET  Z 

$ (23  ="de  f " : PRINT  ' R . B . fi$ . B$ . X i 1 

3 , X (23 ,Z$ (13  .Z$ (23 

5010  PRINT  ” REUIND  TRPE  TO  LOR 
D OLD  URLUES":  POKE  23635 . PEEK  2 
3627:  POKE  23636, PEEK  23623-  LOR 
D "URRIRBLES" : POKE  23635.36-  PG 
KE  23636.104 

5020  CLS  : PRINT  "RESTORED  URRI R 

BLES  = " -R,B,R$ ,B$,X (1) ,X(23  ,Z$(1 
i ,Z$ (23 : STOP 

9000  SRUE  "TEST"  LINE  1:  PRINT  R 

T 10,0; "REUIND  TO  UERIFY  PROGRRM 
UERIFY  “TEST" 


before  it  is  reset,  you  will  not  find  any  BASIC  until 
you  poke  the  original  values  back.  This  same  process 
works  on  the  Spectrum  except  the  original  value  of 
PROG  is  different.  If  you  have  Interface  1 connected 
to  your  Spectrum,  you  will  find  that  PROG  also 
changes  as  soon  as  SAVE,  LOAD,  VERIFY,  or  MERGE  is 
used.  Once  it  changes,  it  remains  the  same  so  you  can 
still  use  this  process.  It  will  not  work  if  saving  to 
ZX  Microdrives  though,  only  tape.  If  you  have  any 
hardware  or  software  installed  which  moves  PROG,  then 
you  must  adjust  the  values  to  reset  PROG  to  use  this 
program.  To  find  the  correct  values,  just  set  up  your 
hardware  or  load  your  software  and  PEEK  into  PROG  to 
get  the  correct  numbers. 

To  load  the  saved  variables  into  another  program, 
first  set  PROG  equal  to  VARS  again  and  LOAD  the 
variables,  then  reset  PROG.  At  first  I just  MERGED 
the  program  without  changing  PROG  and  it  worked  on  a 
small  test  program,  but  when  trying  on  PRO/FILE  I 
always  got  an  out  of  memory  error.  By  changing  PROG 
it  worked  fine.  Since  I don't  understand  why  this 
happens,  I consider  this  experimental. 


One  of  these  variables  is  called  PROG  (short  for 
program).  This  tells  the  computer  where  the  program 
starts  and  you  can  find  PROG  stored  in  addresses 
23635  and  23636.  If  you  PEEK  those  addresses  you  will 
find  the  values  86  and  104.  The  actual  start  of  the 
program  is  found  by  the  formula  86+256*104  which 
equals  26710.  The  start  of  the  variables  is  similarly 
found  by  peeking  VARS  (addresses  23627  and  23628). 

To  start  saving  at  the  start  of  VARS,  we  first  POKE 
PROG  with  the  values  presently  in  VARS.  As  long  as  no 
GOTO  or  GOSUB  instructions  are  encountered  before 
PROG  is  reset,  the  program  will  continue  to  function. 
After  saving  and  verification  is  completed,  PROG  is 
set  back  to  its  original  values.  If  an  error  occurs 


The  accompanying  listing  shows  a simple  example  for 
the  2068  and  gives  the  changes  necessary  for  the 
Spectrum  with  or  without  Interface  1. 

Lines  5 through  200  first  wait  until  you  want  to 
start,  assigns  different  types  of  variables,  prints 
them  on  the  screen,  and  waits  again  to  continue.  The 
pauses  also  give  you  the  opportunity  to  break  in 
before  PROG  is  changed  if  you  wish.  When  I broke  in 
on  the  second  PAUSE  during  testing,  the  first  POKE 
was  sometimes  activated,  so  I added  the  BEEP  to 
prevent  this. 

Line  1000  starts  the  actual  meat  of  the  program  and 
thus  the  part  you  would  use  in  your  own  projects. 

This  simply  pokes  PROG  with  the  contents  of  VARS. 
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Line  1010  saves  and  verifies  the  program  which  only 
contains  variables. 

Line  2000  resets  PROG  to  its  original  value.  If  you 
have  a Spectrum,  change  the  86  and  104  to  be  203  and 
92.  If  Interface  1 is  connected  change  the  POKES  to 
5 and  93  respectively.  Remember  that  Interface  1 does 
not  change  PROG  until  SAVE,  LOAD,  etc  is  activated, 
thus  be  sure  this  has  been  done  first.  This  ends  the 
actual  SAVE  process. 

Line  5000  simply  changes  the  values  of  the  variables 
to  prove  we  can  later  reload  the  original  values. 

These  new  values  are  printed  on  screen. 


Line  5010  first  prints  instructions.  Next  the  actual 
LOAD  section  is  activated:  first  PROG  is  poked  with 
VARS,  then  the  program  of  variables  is  loaded,  then 
PROG  is  reset. 

Line  5020  prints  the  restored  variables  which  should 
be  the  same  as  when  saved. 

Line  9000  simply  lets  you  make  a copy  of  this  test 
program. 

1 hope  this  works  for  you.  If  you  have  any  questions, 
ideas,  or  discoveries,  contact  Robert  C.  Fischer;  Rt 

2 Arizona  St;  Emerson,  Ga.  30137 


BASIL'S  COMPENDIUM 


Basil  Wentworth 

Why  Use  Machine  Code? 

A PHILOSOPHICAL  DIGRESSION 

After  the  lengthy  Chapter  9,  the  brevity  of  this 
one  may  come  as  a welcome  relief.  The  brevity 
exemplifies  the  purpose  of  this  chapter,  which 
might  be  summarized  as  advising  you  not  to  send  a 
man  to  do  a boy’s  job. 

You  might  be  tempted,  after  following  me  through  9 
chapters,  to  say  something  like  "Look,  this  seems 
to  be  an  awfully  complicated  way  to  add  2+2.  I can 
do  the  job  faster  in  BASIC,  or  even  with  pencil  and 
paper."  I could  not  offer  as  a valid  defense  the 
fact  that  not  all  numbers  are  so  easy  to  handle. 

BASIC  would  still  do  the  job  just  as  well.  Sure, 
once  we  get  the  program  written,  the  machine  code 
will  run  in  microseconds,  compared  with  the 
milliseconds  required  by  BASIC;  but  what  does  that 
matter,  when  the  speed  of  your  fingers  and  the 
response  of  your  eye  are  measured  in  large 
fractions  of  a second? 

For  controlling  machines,  the  jump  from 
milliseconds  to  microseconds  might  justify  the 
extra  effort.  The  utility  programs  that  have  been 
given  at  the  top  of  each  chapter  served  as  a 
reminder  that  there  are  things— many  things— that 
machine  code  does  better  than  BASIC  can.  But  not 
everything.  If  your  operations  are  too  fast  for 
the  eye  to  follow,  is  the  program  improved  by 
making  them  MUCH  too  fast  for  the  eye  to  follow? 

Of  course,  the  miniature  arithmetic  programs  we 
have  presented  so  far  were  designed  to  illustrate 
principles,  rather  than  to  do  something  useful. 

("What?"  I hear  you  cry.  "Isn’t  education  useful 
in  itself?"  To  which  I reply,  "Don’t  be  a smart 
alec!")  But  here’s  a pseudo-practical  case,  and 
one  that’s  not  too  different  from  some  routines 
I’ve  seen  published  in  popular  magazines. 

I’m  not  going  to  give  mnemonics  for  this  program. 

You  can  work  them  out  for  yourself,  if  you  want  to. 

Here’s  a hint  that  may  save  you  a bit  of  time— the 
first  19  bytes  are  data.  You  might  have  guessed  as 
much,  from  the  faot  that  we  USR  our  way  into  the 
program  at  16533,  rather  than  the  usual  16514. 

After  you  RUN  the  program,  enter  RAND  (not  PRINT) 
U8R  16533,  It’s  a rather  roundabout  way  to  write  a 
love  note,  even  if  my  wife  did  think  it  was  rather 
oute. 


The  point  is,  as  I remarked  at  the  head  of  this 
chapter,  it’s  not  always  wise  to  send  a man  to  do  a 
boy’s  job.  Don’t  become  so  enthralled  with  your 
ability  to  write  machine  code  programs  that  you 
overlook  some  easier,  or  more  reliable,  way  to  do 
what  you  want.  If  you  have  the  choice  between 
simple  and  complicated,  simple  is  usually  the  more 
elegant.  It’s  often  a poor  bargain  to  trade  many 
minutes  of  machine  code  writing  for  a saving  of  a 
few  milliseconds  in  program  execution. 

But  of  course,  if  you  want  to  do  it  just  for 
fun... 

There  are  jobs  that  machine  code  is  best  for. 

There  are  some  jobs  that  machine  code  can  do 
easily,  but  are  hardly  possible  (or  impossibly 
hard)  for  BASIC.  Use  your  machine  code  for  them. 
Usually  these  are  tasks  involving  loops,  or  great 
numbers  of  repetitive  calculations. 

PRINT  is  often  better  done  in  BASIC.  Loops  are 
always  faster  in  machine  code.  Arithmetic  and 
trigonometric  calculations  tend  to  be  easier  in 
BASIC. 

As  a matter  of  general  principle,  you’ll  probably 
find  it  best  to  block  diagram  your  programs  in 
BASIC  before  you  start  writing  maohlne  code. 
Usually  you’ll  get  a feeling  right  there  whether 
it’s  better  to  stick  with  BASIC  or  to  use  machine 
oode. 

And  that’s  the  end  of  a short,  but  Important, 
ohapter.  There  will  be  more. 
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WORDSEARCH 

A Comparision  between  the  ZX80  and  TS1000 
by  Duncan  Teague 


Last  year,  during  the  return  of  the  Comet  Halley,  my 
planetarium  was  planning  to  send  a monthly  news- 
letter to  the  local  elementary  schools.  In  order  to 
provide  a little  diversion,  a good  word  search 
puzzle  was  to  be  included  in  each  newsletter.  The 
program  to  generate  such  a puzzle  was  found  in  "THE 
BEST  OF  SYNC:  VOL.  I"  ( (c)1983  Creative  Computing 
Press,  page  24). 

A problem  soon  arose  however,  in  that  the  program 
would  work  fine  on  the  ZX80  for  which  it  was 
written,  but  wouldn’t  work  on  a TS1000.  After 
reading  many  sources  comparing  and  explaining  the 
differences  between  the  two  computers,  several 
modifications  were  made  to  the  original  program  in 
an  attempt  to  get  it  to  work  on  the  TS1000.  All  to 
no  avail. 

The  author  of  the  original  program,  Bill  McCray,  was 
located  and  consulted.  Mr.  McCray  stated  that  he  had 
never  produced  a TS1000  version  of  his  WORDSEARCH 
program.  Futhermore,  while  several  other  people  had 
contacted  him  about  the  problem  of  ZX80/TS1000 
incapatability,  to  date  he  was  not  aware  of  anyone 
sucessfully  modifying  his  program  to  run  on  the 
TS1000.  Mr.  McCray  did  suggest  that  perhaps 
examining  the  sections  of  the  program  that  depend  on 
relational  operators  might  shed  some  light  on  the 
incapatibility  problem. 

That  was  an  area  that  had  been  overlooked  during 
research  of  comparisons  between  the  two  computers. 

In  fact,  the  differences  as  to  how  the  two  machines 
handle  relational  operators  turned  out  to  be  the  key 
to  making  the  WORDSEARCH  program  operate 
successfully  on  the  TS1000.  In  the  process  of 
translating  from  ZX80  Basic  to  TS1000  Basic,  a 
number  of  "tricks"  were  discovered  that  allow 
successful  conversion  of  programs  between  the  two 
computers.  Please  follow  along  with  the  listing  of 
the  modified  and  now  working  program.  Also  note  that 
in  all  references  given  below,  ZX81  is  equivalent  to 
TS1000.  Program  lines  have  also  been  renumbered  so 
they  no  longer  match  those  given  in  "THE  BEST  OF 
SYNC"  for  the  ZX80. 

Before  we  delve  into  relational  operators,  a few 
other  differences  in  ZX80  Basic  vs.  TS1000  Basic 
need  to  be  explained.  In  lines  20  and  30  of  the 
listing,  two  arrays  are  DIMensioned.  The  first  holds 
the  165  characters  of  the  11  X 15  puzzle.  The  second 
holds  the  character  codes  for  each  letter  of  the  11 
letter  words  that  will  be  entered  into  the  puzzle. 

On  the  two  machnes  the  lines  would  be  entered 
differently: 

ZX80:  20  DIM  A(164)  ZX81:  20  DIM  A(165) 

30  DIM  B(10)  30  DIM  B(ll) 

The  differences  arise  because  because  a ZX80  array 
allows  a 0th  element.  The  arrary  is  therefore 
dimensioned  0 to  164. 

Because  a 0th  element  is  possible,  some  of  the 
FOR. ..NEXT  loops  in  the  program  start  and  end  with 
different  varible  values.  The  varible  C,  for 
instance,  takes  on  the  values  0 to  10  in  the  ZX80 
version  while  it  ranges  from  1 to  11  in  the  ZX81 
version. 


ZX80:  170  FOR  C=0  to  10 
ZX81:  170  FOR  C=1  to  11 

It  is  also  necessary  to  change  lines  500  and  600 
since  the  variable  K takes  on  the  values  of  C. 

Line  200  contains  a command  to  slice  the  first 
character  of  A$  from  the  string  after  that  character 
code  has  been  stored  in  the  B array.  There  is  a 
satisfactory  substitution  for  the  ZX80  command  TL$: 

ZX80:  200  LET  A$=TL$(A|) 

ZX81:  200  LET  A$=A$(2  TO) 

The  random  number  generators  of  the  two  computers 
also  operate  differently.  The  ZX80  automatically 
makes  an  integer  out  of  random  numbers  in  the  range 
of  0 to  N and  includes  N in  the  range.  The  ZX81  does 
not.  Line  300  shows  how  you  must  take  the  INT  of  the 
RND  number  on  the  ZX81  and  add  +1  to  the  result. 

ZX80:  300  FOR  1=1  to  RND*8 

ZX81:  300  FOR  1=1  TO  INT  (RND*8)+1 

The  same  consideration  must  be  applied  to  lines  400 
and  410. 

Now  back  to  the  relational  operators.  When  the  ZX80 
uses  the  relational  operators  =,  >,  and  < to  deter- 
mine the  equality  or  inequality,  a result  of  false 
is  evaluated  as  0,  and  true  is  evaluated  as  -1.  When 
the  ZX81/TS1000  performs  the  same  comparisons,  false 
is  still  0,  but  true  is  +1.  Because  of  the  differ- 
ences in  assigning  a value  for  true,  when  converting 
from  ZX80  Basic  to  ZX81  basic  it’s  necessary  to 
multiply  some  expressions  containing  relational 
operators  by  -1.  Line  360  shows  how  this  is 
accomplished.  Note  that  the  ZX81  version  also  has 

(C-l);  that’s  because  C is  1 greater  in  the  ZX81 
version  than  the  ZX80  version. 

ZX80:  360  LET  D=-C"(U<0) 

ZX81:  360  LET  D=(C-1)*(U<0) 

Once  again,  in  the  ZX81  line  above,  1 has  been 
subtracted  from  C since  its  value  is  one  less  than 
the  lenght  of  the  word  to  be  embedded  into  the 
puzzle.  C has  also  been  multiplied  by  -1  to  account 
for  the  differences  in  relational  operators. 

The  same  operations  also  hold  true  for  lines  370, 

380,  and  390.  They  are  not  necessary  for  lines  910 
and  920  since  they  involve  the  multiplication  of  two 
possibly  negative  numbers.  The  result  will  always  be 
0 or  positive  in  these  lines  so  no  changes  are 
necessary. 

At  this  point  the  program  functioned  properly.  One 
final  communication  from  Bill  McCray  eliminated  the 
annoying  problem  of  words  starting  in  the  last 
column  of  the  puzzle  and  wrapping  around  to  the 
first.  This  change  is  related  to  the  fact  that  the 
ZX80  array  contained  elements  0 to  164  instead  of  1 
to  165. 

The  variables  M and  P (lines  490  and  590,  respec- 
tively) become  subscripts  of  the  A array  (in  lines 
510  and  670).  They  should  therefore  take  on  values  1 


21 


to  165  in  the  ZX81  version  of  the  program.  To  have 
them  do  so  requires  the  edition  of  1 to  the  lines  in 
which  the  values  of  M and  P were  calculated. 

ZX80:  490  LET  M=X+15*Y 
590  LET  P=X+15*Y 

ZX81:  490  LET  M=X+15*Y+1 
590  LET  P=X+15*Y+1 

Now  the  program  works  like  a charm.  You  can  keep 
entering  words  for  as  long  as  you  like.  Lenghty 
words  should  be  entered  first  to  give  them  a better 
chance  of  being  properly  embedded  into  the  puzzle. 

If  you’re  not  happy  with  the  way  the  program 
arranged  the  puzzle,  re  RUN  the  program. 

If  you  try  to  enter  a word  longer  than  11  characters 
or  a word  containing  a non- alpha  character,  then 
you'll  be  asked  to  re-enter  a different  word.  If 
there  is  no  room  left  in  the  puzzle  for  a word  you 
try  to  enter,  try  a shorter  word.  Program  options 
allow  you  to  display  either  the  puzzle  or  its 
solution.  The  screen  can  be  copied  to  your  printer. 


01REH  WRITTEN  FOR  THE  ZX30  BY 
BILL  MCCRRY 

10  REM  MODIFIED  FOR  T5/1000  BY 
DUN CRN  R.  TERGUE 
20  DIM  R i 165) 

30  DIM  Bill) 

40  CLS 
50  RRND 
60  PRINT  “ 


70  PRINT  _ 

30  PRINT  'WORDS  MRXIMUM  OF  11 
LETTERS  ERCH" 

90  LET  R$  = " F IRST" 

100  PRINT 

110  PRINT  R$;“  UORD?";TRB  15; MN 
ULL  ENTRY  TO  END" 

120  INPUT  R$ 

130  CLS 

140  IF  R$  = “ “ THEN  GOTO  720 
150  PRINT  R$ 

160  IF  LEN  R $ > 1 1 THEN  GOTO  230 
170  FOR  C=1  TO  11 
130  LET  B (C) =CQDE  R$ 

190  IF  B (C)  <38  THEN  GOTO  260 
200  LET  R$=R$ (2  TO  ) 

210  IF  R$  =" " THEN  GOTO  230 
220  NEXT  C 

230  PRINT  “TOO  MR NY  LETTERS" 

240  PRINT  “RE-ENTER" 

250  GOTO  120 

260  PRINT  "INURLID  CHRRRCTER “ 

270  GOTO  240 
230  LET  U =1 
290  LET  U=0 

300  FOR  1=1  TO  INT  (RND*3) +1 

310  GOSUB  910 

320  NEXT  I 

330  LET  R =- 1 

340  FOR  1=1  TO  3 

350  GOSUB  910 

360  LET  D= (C-l)  * (U <0) 

370  LET  E=15- (C-l)  * ( U > 0 ) 

330  LET  F=(C-1)  * ( U < 0 ) 

390  LET  G=ll- (C-l)  * (U >0) 

400  LET  X =INT  (RND* (E-D)  ) +D 
410  LET  Y=INT  (RND* (G-F) ) +F 
420  FOR  J=1  TO  (E-D)* (G-F) 

430  LET  X =X  + 1 

440  IF  X <E  THEN  GOTO  480 

450  LET  X=D 

460  LET  Y =Y  + 1 

470  IF  Y=G  THEN  LET  Y=F 

430  LET  B =0 

490  LET  M=X+15*Y  + 1 

500  FOR  K»1  TO  C 

510  LET  L =R ( M ) 

520  LET  M =M  + U 

530  IF  L=0  THEN  GOTO  560 

540  IF  NOT  LsB(K)  THEN  GOTO  610 

550  LET  B =B  + 1 

560  NEXT  K 

570  IF  NOT  B >R  THEN  GOTO  610 

530  LET  R=B 

590  LET  P »X+15*Y+1 

500  LET  0*U 

510  NE/T  J 

5 20  l F R/-1  THEN  GOTO  660 
520  NE/T  I 

540  PPXNT  UOPD  DOES  NOT  FIT” 

550  GOTO  700 


66S  FOR  K =1  TO  C 
670  LET  R(P)=B(K) 

630  LET  P=P+Q 

690  NEXT  K 

700  LET  R$=“NEXT" 

710  GOTO  110  _ ^ 

720  PRINT  RT  21.0;  “SOLUTION  QU 
ZZLE  8DPY  SND" 

730  INPUT  R$ 

740  IF  R$  =” E"  THEN  STOP 

750  IF  R$  =" C"  THEN  GOTO  960 

760  CLS 

770  LET  1=1 

730  FOR  K =0  TO  10 

790  FOR  J=0  TO  14 

300  LET  L=R (I) 

310  IF  L THEN  GOTO  340 
320  LET  L =27 

330  IF  NOT  R$="S"  THEN  LET  L=IN 
T (RND*26) +33 
340  PRINT  CHR$  (L);“  " J 

350  LET  1=1+1 
360  NEXT  J 
370  PRINT 
330  PRINT 
390  NEXT  K 
900  GOTO  720 

910  LET  U=(U>-1)  * ( U > - 1 ) - (U<1)  * ( 

U<1) 

920  LET  U=15* ( (U<1) * (U  > -1) - (U>- 
1)  * (U<1)  ) 

930  LET  U=U 

940  LET  U =U+U 

950  RETURN 

960  PRINT  RT  21.0;“ 


970  COPY 

930  GOTO  720  _ 

990  5 RUE  “UORDSERRCB” 
1000  RUN 


This  ia  a bare  bones  program.  Remember  that  the 
original  program  had  to  fit  into  the  small  memory  of 
the  ZX80.  The  user  can  easily  add  more  programing 
lines  to  the  ZX81  version  to  allow  editing  and 
printing  out  of  the  word  list.  Simple  changes  to  the 
range  of  character  codes  will  produce  a TS2068 
version  of  the  WORDSEARCH  program.  Be  sure  to  run 
the  TS1000  version  in  FAST  mode. 

Included  is  a sample  WORDSEARCH  puzzle  related  to 
Sync  Ware  News  and  its  staff.  Hidden  in  the  puzzle 
are  the  following  words:  SYNCWARE,  NEWS,  TIMEX, 
COMPUTERS,  SOFTWARE,  HARDWARE,  NACHBAUR, 
WOODS,  BENT,  and  MOORE.  See  if  you  can  solve  the 
puzzle  without  peeking  at  the  solution  found 
elsewhere  in  this  issue.  GOOD  LUCK! 


Fun  Corner 


M H N Q I R 
F Y A T Z S 
J Y M R E B 
0 L 0 R D V 

0 S 0 F T W 
A 0 D N H N 
M T I M E X 
F 0 H K Y W 

1 0 I E E A 
T R L B 0 Y 
K S 0 K R D 


TRCENPLWE 
Y N C W A R E B K 
PCEXCZOZN 
UPCBHGUZG 
AREABHJWU 
AXVUAJYRY 
SRETUPMOC 
JDERRWIVY 
SVOYSQWUX 
QPIORGWES 
PBBQWTHQN 
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2068  WORD  WRAP  UTILITY 

Charles  Stelding 


When  printing  a text  to  the  screen  by  using  the 
PRINT  statement,  words  at  the  end  of  the  screen 
often  will  be  cut  off  in  the  middle  and  continued  on 
the  next  line.  This  makes  the  text  difficult  to 
read. 


This  utility  will  put  the  entire  word  at  the 
beginning  of  the  next  line  so  that  the  word  remains 
intact.  You  simply  put  the  text  you  wish  to  print  to 
the  screen  or  a printer  in  a REM  statment.  A PRINT 
statement  is  not  necessary.  To  illustrate  how  this 
works,  type  in  the  following  BASIC  listing  and  RUN 
it.  Further  explanation  is  given  in  the  listing. 


By  changing  the  DATA  STATEMENT  in  LINE  10,  this 
Utility  will  also  work  on  the  Spectrum  Computer. 
Change  LINE  10  to  read: 


10  DATA  "3E02CD01163E0DD72A5D" 


9 REM  For  the  SPECTRUM,  chang 
e line  IS  to  DfiTR  "3E02CD01163E0 
D*D72fi5D  " 

’ 10  DflTfi  “ 3E02CD30123E0DD72A5D " 

11  DfiTR  " 5C2323E51 12000 1953D5" 

12  DflTfi  “7EFE202015C1E17EFE0D" 

13  DflTfi  “ C3D72310F33E0DD77EFE" 

14  DflTfi  "2020E22313F3C12B057E" 

15  DflTfi  "FE0D23E4FE2020F513DE" 

16  RESTORE  10:  LET  add r =65000: 

FOR  . j —10  TO  15:  READ  a$:  FOR  K = 

1 TO  LEN  a $ STEP  2:  LET  num=(CGD 

E a$  (10-48- (7  AND  a $ ( K ) > " 9 " )) *16 
4 ( CODE  a $ ( K +1 ) -48-  i 7 AND  a $ £ k + 1 ) 
>"9"))  : POKE  a d d f . HUfTi : LET  8ddf  = 

addr+i:  NEXT  K : NEXT  j 

100  LET  wrap  =65000 
103  POKE  (w  r a p 4 1 ) . 2 : REM  print 

t o screen.  POKE  (w  r a p + 1 ) , 3 w i 1 1 
send  text  in  the  REM  statement 
to  printer.  If  you  are  u sing  a 
printer  other  than  the  2040,  you 
mu s t ha v e y 0 u r p r i n t e r s o f t wa r e 
l o a d e d and  initialized. 

105  LET  uiidth  =32:  POKE  (wrap +15 

) ..width 

110  RANDOMIZE  USR  wrap:  REM  T 

h e REM  state me n t m ust  i mme diate  l 
y follow  the  'RANDOMIZE  USER  wra 
P " entry  as  t his  e x amp  l e i 1 1 u s t r 
ates . Th e letters  f 0 1 1 ow i n g the 
REM  token  w ill  be  p r inte d 1 0 t h 
e scree n 0 r printer  an d wo r d s wh 
i ch  wou id  norma l ly  be  cut  o f f in 
the  m i d d 1 e at  the  end  of  the  s c 
reen  will  be  "wrapped  around"  to 
the  ne  x t line  t o ma  K.  e t hem  easi 
e r 1 0 r e a d . 

120  RANDOMIZE  USR  wrap:  REM  A 

q u 0 1 a t i 0 n m a r k i s s 1 rnp  l y entere 
d as  (“)  instead  of  two  quotes  ( 
" " ) as  i r?  a PR INT  s t a t erne n t . 

130  RANDOMIZE  USR  wrap:  REM  T 

he  code  is  saved  by  SAUE  "REM  UR 
AP"CODE  65000,60  and  is  re  lo cat a 
b l e a n y wh  ere  i n u seable  memo r y . 

It  will  wo r k 0 n both  the  Sp e c t r 
urn  and  2068  (also  with  the  OS  64 
cartridge)  . To  rel 0 c a t e t h e c 0 
de  , s i mp  ly  define  "addr"  the  v a l 
ue  of  the  new  location  as  "LET  a 
ddr  =3^080."  in  line  16.  Then  de  f 
ine  “wrap"  as  32000  in  line  100. 

140  RANDOMIZE  USR  wrap:  REM  T 

he  column  width  is  now  set  at  32 
but  can  be  changed  to  64  for  th 
e OS  64  cartridge.  To  change  th 
e c o l u mn  w i d t h . type  i n a n m n e w 
width  in  line  105. 

3993  STOP 

9999  SAUE  "REM  URAP"  LINE  10-  UE 
RIF/  "" 


LISTING  1:  UORD  URAP  UTILITY 


For  machine  code  buffs,  here  is  the  code 
disassembled  and  explained: 


FDE8  EQU  65000 


FDE8 

3E02 

wrap 

LD  A, 02 

;Put  02  in  the 
;accunulator 

FDEA 

CD3012 

CALL  chop 

;Set  to  print  to 
; screen 

FDED 

3E0D 

LD  A, 0D 

; Put  0D  in  the 
; accumulator 

FDEF 

D7 

RST  10H 

;Do  a carriage 
; return 

FDF0 

2A5D5C 

LD  HL, (chad) 

;Get  addr.  of  REM 
;statement 

FDF3 

23 

INC  HL 

; Let  HL=HL+1 

FDF4 

23 

INC  HL 

;Let  HL=HL+1 
;(HL=beg.  of  text) 

FDF5 

E5 

CHEK 

PUSH  HL 

;Save  beg.  of  line 
;on  stack 

FDF6 

112000 

LD  DE, 0020 

;Put  colimn  width 
; in  DE 

FDF9 

19 

ADD  HL  ,DE 

;Add  width  to  HL 

FDFA 

53 

LD  D,E 

;Put  width  into  D 

FDFB 

D5 

PUSH  DE 

;Save  width  on 
;stack 

FDFC 

7E 

LD  A, (HL) 

;What*s  at  beg.  of 
jnext  line? 

FDFD 

FE20 

CP  20 

; I s it  a space? 

FDFF 

2015 

JR  NZ , LETR 

jlf  not,  goto  LETR 

FE01 

Cl 

PRNT 

POP  BC 

;Get  B counter  off 
; stack 

FE02 

El 

PRN1 

POP  HL 

;Get  text  location 
;off  stack 

FE03 

7E 

LOOP 

LD  A,  (HL) 

;Put  letter  at  HL 
; in  accum. 

FE04 

FEOD 

CP  0D 

;Is  it  a carriage 
; return? 

FE06 

C8 

RET  Z 

;If  yes,  return  to 
;Bas ic 

FE07 

D7 

RST  10H 

•flt  not,  print  it 
;to  screen 

FE08 

23 

INC  HL 

;Let  HL=HL+1  (get 
;next  letter) 

FE09 

10F8 

DJNZ , LOOP 

; I f BO0,  goto  LOOP 

FEOB 

3E0D 

NEWL 

LD  A,0D 

;Load  accum.  with 
jcarriage  ret. 

FEOD 

D7 

RST  10H 

;Print  it  to  screen 

FEOE 

7E 

NEW1 

LD  A, (HL) 

;Put  letter  at  HL 
; iii  accum. 

FEOF 

FE20 

CP  20 

; I s it  a space? 

FE11 

20E2 

JR  NZ,CHEK 

; If  not , goto  CHEK 

FE13 

23 

INC  HL 

;If  yes,  chk  for 
; another  space 

FE14 

18F8 

JR  NEW1 

;Goto  NEW1 

FE16 

Cl 

LETR 

POP  BC 

;Get  B counter  off 
; stack 

FE17 

2B 

LTR1 

DEC  HL 

;HL=HL-1  (find 
; space) 

FE18 

05 

DEC  B 

;B=B-1  (update 
; counter ) 

FE19 

7E 

LD  A, (HL) 

;Put  letter  at  HL 
; in  acctm. 

FE1A 

FEOD 

CP  0D 

;is  it  a carriage 
; return? 

FE1C 

28E4 

JR  Z , PRN1 

; I f yes,  goto  PRN1 

FE1E 

FE20 

CP  20 

; I s it  a space? 

FE20 

20F5 

JR  NZ , LTR1 

;If  not,  goto  LTR1 

FE22 

18DE 

END_ 

JR  PRN1 

; I f yes,  goto  PRN1 

23 


’IMPROVED1  from  page  1 


Other  than  its  keyboard,  one  of  the  biggest 
complaints  about  the  ZX81/TS1000  is  its  low 
resolution  graphics.  Those  of  us  that  have  been 
struggling  along  with  the  graphics  will  be  excited 
to  read  Wilf  Rigter's  article.  In  it  he  presents  an 
honest-to-goodness  software-only  high- resolution 
screen  display  program  for  the  ZX81/TS1000.  A whole 
new  world  of  screen  displays  awaits  exploration. 

Have  any  of  you  TS2068  users  ever  turned  a little 
green  with  envy  when  looking  at  your  buddies’  QL  or 
Mac-alike  computers  that  could  do  pull  down  windows? 
You’ll  be  back  in  the  pink  again  after  reading  Paul 
Bingham's  article.  He  has  come  up  with  an  easy  to 
program  and  use  machine  code  window  routine.  Add 
this  to  your  programs  and  be  the  envy  of  your 
buddies. 

Get  those  'new  and  improved'  computers  going!  Don't 
forget  the  CONTEST! 


Puzzle  Solution 
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